Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-4.4.4
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
stfunc_5.f90
blob: 09b6da338f429af4094e3beda51eec2d75ccc7d7 [
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
!
{
dg
-
final
{
cleanup
-
modules
"stmt"
}
}