Sign in
gnu
/
gcc
/
501b3b9ef5be64294f6e51e1e2323b8c9a60adef
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
error_stop_4.f90
blob: fbca5990b969fc2e2a6039b62d9855451f8a1e38 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2008ts"
}
!
!
F2018 permits ERROR STOP
in
PURE procedures
!
pure subroutine foo
()
error stop
"failed"
!
{
dg
-
error
"Fortran 2018: ERROR STOP statement at .1. in PURE procedure"
}
end