Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
b42cc22ad4b3cc4c4cd697052b8f1dd85df96d0a
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
stfunc_5.f90
blob: 49170208af5835e9a0919f1e7c02f0e5eaf674d0 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
32724
!
ICE on statement
function
in
specification part of
module
MODULE stmt
f
(
x
)
=
x
**
2
!
{
dg
-
error
"Unexpected STATEMENT FUNCTION"
}
END
MODULE