gcc/testsuite/gfortran.dg/elemental_args_check_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34660
   4 !
   5 ! Check for elemental constrain C1277 (F2003).
   6 ! Contributed by Joost VandeVondele.
   7 !
   8 MODULE M1
   9 IMPLICIT NONE
  10 CONTAINS
  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
  19 END MODULE M1
  20 ! { dg-final { cleanup-modules "m1" } }