5 ! Check for elemental constrain C1277 (F2003).
6 ! Contributed by Joost VandeVondele.
11 PURE ELEMENTAL
SUBROUTINE S1(I
,F
)
12 INTEGER, INTENT(IN
) :: I
14 PURE
INTEGER FUNCTION F(I
) ! { dg-error "Dummy procedure 'f' not allowed in elemental procedure" }
15 INTEGER, INTENT(IN
) :: I