Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
execute
/
data_4.f90
blob: c05fc81f38c6e58707e13772e0045c2fac0d94fd [
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
))
STOP
1
END