Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
llvm-gcc-4.0
/
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