Sign in
llvm
/
llvm-archive
/
b74e25f9042d5657e8f400dd820eba426827f1dd
/
.
/
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