! { dg-do compile } | |
! { dg-options "-std=f2008" } | |
! PR fortran/45197 | |
! Check for errors with IMPURE. | |
! Contributed by Daniel Kraft, d@domob.eu. | |
MODULE m | |
IMPLICIT NONE | |
CONTAINS | |
IMPURE PURE SUBROUTINE foobar () ! { dg-error "must not appear both" } | |
PURE ELEMENTAL IMPURE FUNCTION xyz () ! { dg-error "must not appear both" } | |
IMPURE ELEMENTAL SUBROUTINE mysub () | |
END SUBROUTINE mysub | |
PURE SUBROUTINE purified () | |
CALL mysub () ! { dg-error "is not PURE" } | |
END SUBROUTINE purified | |
END MODULE m |