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