gcc/testsuite/gfortran.dg/impure_actual_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR25056 in which a non-PURE procedure could be
   3 ! passed as the actual argument to a PURE procedure.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7 MODULE M1
   8 CONTAINS
   9  FUNCTION L()
  10   L=1
  11  END FUNCTION L
  12  PURE FUNCTION J(K)
  13    INTERFACE
  14      PURE FUNCTION K()
  15      END FUNCTION K
  16    END INTERFACE
  17    J=K()
  18  END FUNCTION J
  19 END MODULE M1
  20 USE M1
  21  write(6,*) J(L) ! { dg-error "Expected a PURE procedure for argument" }
  22 END
  23
  24 ! { dg-final { cleanup-modules "M1" } }
  25