Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
whole_file_18.f90
blob: 9d0229afc0a4712dc569925f9dda0e1fab0ab573 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Wno-unused-dummy-argument"
}
!
!
PR fortran
/
34260
!
PROGRAM MAIN
REAL A
CALL SUB
(
A
)
!
{
dg
-
error
"Explicit interface required"
}
END
PROGRAM
SUBROUTINE SUB
(
A
,
I
)
REAL
::
A
INTEGER
,
OPTIONAL
::
I
END
SUBROUTINE