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 9PROGRAM main 10 IMPLICIT NONE 11 12 myname: IF (.TRUE.) THEN 13 EXIT myname ! { dg-error "Fortran 2008" } 14 END IF myname 15END PROGRAM main 16