comparison gcc/testsuite/gfortran.dg/error_stop_4.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! { dg-do compile } 1 ! { dg-do compile }
2 ! { dg-options "-std=f2008ts" } 2 ! { dg-options "-std=f2008" }
3 ! 3 !
4 ! F2015 permits ERROR STOP in PURE procedures 4 ! F2018 permits ERROR STOP in PURE procedures
5 ! FIXME: Change to error_stop_3.f90 to -std=f2015.
6 ! 5 !
7 pure subroutine foo() 6 pure subroutine foo()
8 error stop "failed" ! { dg-error "GNU Extension: ERROR STOP statement at .1. in PURE procedure" } 7 error stop "failed" ! { dg-error "Fortran 2018: ERROR STOP statement at .1. in PURE procedure" }
9 end 8 end