1! { dg-do compile }
2!
3! PR fortran/34660
4!
5! Check for elemental constrain C1277 (F2003).
6! Contributed by Joost VandeVondele.
7!
8MODULE M1
9IMPLICIT NONE
10CONTAINS
11 PURE ELEMENTAL SUBROUTINE S1(I,F)
12   INTEGER, INTENT(IN) :: I
13   INTERFACE
14     PURE INTEGER FUNCTION F(I) ! { dg-error "Dummy procedure 'f' not allowed in elemental procedure" }
15      INTEGER, INTENT(IN) :: I
16     END FUNCTION F
17   END INTERFACE
18 END SUBROUTINE S1
19END MODULE M1
20