Sign in
llvm
/
llvm-archive
/
48649d2c83b557841c9e5c978d9ab5af13cb52e5
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
data_4.f90
blob: 4b5c10e6a8bbf9505ab01e86df2da1027ee80267 [
file
] [
log
] [
blame
]
CHARACTER
*
4
A
(
3
),
B
(
3
),
C
(
3
)
DATA A
/
'A'
,
"A"
,
'A'
/
DATA B
/
3
*
'A'
/
DATA C
/
'A'
,
2
*
'A'
/
IF
(
ANY
(
A
.
NE
.
B
).
OR
.
ANY
(
A
.
NE
.
C
))
CALL ABORT
END