Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
error_stop_4.f90
blob: d8cdefe14cbcc464b994a63d6d4f2fd5b7e7b18a [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2008"
}
!
!
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