gcc/testsuite/gfortran.dg/exit_5.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3
   4 ! PR fortran/44602
   5 ! Check for F2008 rejection of non-loop EXIT.
   6
   7 ! Contributed by Daniel Kraft, d@domob.eu.
   8
   9 PROGRAM main
  10   IMPLICIT NONE
  11
  12   myname: IF (.TRUE.) THEN
  13     EXIT myname ! { dg-error "Fortran 2008" }
  14   END IF myname
  15 END PROGRAM main