Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
g77
/
20010115.f
blob: cce8dbce7c87080ccf3625c5b1c2be7b17dbf0e0 [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
*
GNATS PR
Fortran
/
1636
PRINT
42
,
'HELLO'
42
FORMAT
(
A
)
CALL WORLD
END
SUBROUTINE WORLD
PRINT
42
,
'WORLD'
42
FORMAT
(
A
)
END