generic_actual_arg.f90   [plain text]

! { dg-do compile }
! Tests fix for PR20886 in which the passing of a generic procedure as
! an actual argument was not detected.
!
! Contributed by Joost VandeVondele  <jv244@cam.ac.uk> 
!
MODULE TEST
INTERFACE CALCULATION
  MODULE PROCEDURE C1,C2
END INTERFACE
CONTAINS
SUBROUTINE C1(r)
 INTEGER :: r
END SUBROUTINE
SUBROUTINE C2(r)
 REAL :: r
END SUBROUTINE
END MODULE TEST
    
USE TEST
CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" } 
END

SUBROUTINE F()
END SUBROUTINE