generic_actual_arg.f90

用于进行gcc测试

! { 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  <[e-mail]> 
!
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 procedure" } 
END

SUBROUTINE F()
END SUBROUTINE
! { dg-final { cleanup-modules "TEST" } }