Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
error_stop_3.f90
blob: 1ff74d8623a170623e0756cd611c211bde1292ea [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2018"
}
!
!
F2018 permits ERROR STOP
in
PURE procedures
!
pure subroutine foo
()
error stop
"failed"
end