gcc/testsuite/gfortran.dg/impure_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3
   4 ! PR fortran/45197
   5 ! Check that IMPURE gets rejected without F2008.
   6
   7 ! Contributed by Daniel Kraft, d@domob.eu.
   8
   9 IMPURE SUBROUTINE foobar () ! { dg-error "Fortran 2008" }
  10
  11 IMPURE ELEMENTAL FUNCTION xyz () ! { dg-error "Fortran 2008" }