gcc/testsuite/gfortran.dg/generic_actual_arg.f90

   1 ! { dg-do compile }
   2 ! Tests fix for PR20886 in which the passing of a generic procedure as
   3 ! an actual argument was not detected.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7 MODULE TEST
   8 INTERFACE CALCULATION
   9   MODULE PROCEDURE C1,C2
  10 END INTERFACE
  11 CONTAINS
  12 SUBROUTINE C1(r)
  13  INTEGER :: r
  14 END SUBROUTINE
  15 SUBROUTINE C2(r)
  16  REAL :: r
  17 END SUBROUTINE
  18 END MODULE TEST
  19
  20 USE TEST
  21 CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" }
  22 END
  23
  24 SUBROUTINE F()
  25 END SUBROUTINE