| ! { dg-do compile } | |
| ! { dg-options "-std=f2003" } | |
| ! PR fortran/44602 | |
| ! Check for F2008 rejection of non-loop EXIT. | |
| ! Contributed by Daniel Kraft, d@domob.eu. | |
| PROGRAM main | |
| IMPLICIT NONE | |
| myname: IF (.TRUE.) THEN | |
| EXIT myname ! { dg-error "Fortran 2008" } | |
| END IF myname | |
| END PROGRAM main |