Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
hollerith.f90
blob: aa7b17def7563dc98bfb3df124334bafdba971ea [
file
] [
log
] [
blame
]
!
PR
14038
-
'H'
in
hollerith causes mangling of
string
program hollerith
IMPLICIT NONE
CHARACTER
*
4
LINE
100
FORMAT
(
4H12H4
)
WRITE
(
LINE
,
100
)
IF
(
LINE
.
NE
.
'12H4'
)
call abort
()
end