Subversion Repositories openrisc

! { dg-do compile }
! { dg-options "-std=f2008 -fcoarray=single" }

! PR fortran/44602
! Check for compile-time errors with non-loop EXITs.

! Contributed by Daniel Kraft, d@domob.eu.

PROGRAM main
  IMPLICIT NONE
  INTEGER :: bar(2)

  ! Must not exit CRITICAL.
  mycrit: CRITICAL
    EXIT mycrit ! { dg-error "leaves CRITICAL" }
  END CRITICAL mycrit

  ! CYCLE is only allowed for loops!
  myblock: BLOCK
    CYCLE myblock ! { dg-error "is not applicable to non-loop construct 'myblock'" }
  END BLOCK myblock

  ! Invalid construct.
  ! Thanks to Mikael Morin, mikael.morin@sfr.fr.
  baz: WHERE ([ .true., .true. ])
    bar = 0
    EXIT baz ! { dg-error "is not applicable to construct 'baz'" }
  END WHERE baz
END PROGRAM main