Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
character_select_1.f90
blob: c42cea4fc21e3983942ca62a985dfd48a96bd76b [
file
] [
log
] [
blame
]
CHARACTER
(
LEN
=
6
)
::
C
=
"STEVEN"
SELECT CASE
(
C
)
CASE
(
"AAA"
:
"EEE"
)
CALL abort
CASE
(
"R"
:
"T"
)
CONTINUE
CASE DEFAULT
CALL abort
END
SELECT
END