20 lines
414 B
Fortran
20 lines
414 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for 20861, in which internal procedures were permitted to
|
|
! be dummy arguments.
|
|
!
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
!
|
|
CALL DD(TT) ! { dg-error "is not allowed as an actual argument" }
|
|
CONTAINS
|
|
SUBROUTINE DD(F)
|
|
INTERFACE
|
|
SUBROUTINE F(X)
|
|
REAL :: X
|
|
END SUBROUTINE F
|
|
END INTERFACE
|
|
END SUBROUTINE DD
|
|
SUBROUTINE TT(X)
|
|
REAL :: X
|
|
END SUBROUTINE
|
|
END
|