24 lines
528 B
Fortran
24 lines
528 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for 20871, in which elemental non-intrinsic procedures were
|
|
! permitted to be dummy arguments.
|
|
!
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
!
|
|
MODULE TT
|
|
CONTAINS
|
|
ELEMENTAL INTEGER FUNCTION two(N)
|
|
INTEGER, INTENT(IN) :: N
|
|
two=2**N
|
|
END FUNCTION
|
|
END MODULE
|
|
USE TT
|
|
INTEGER, EXTERNAL :: SUB
|
|
write(6,*) SUB(two) ! { dg-error "not allowed as an actual argument " }
|
|
END
|
|
INTEGER FUNCTION SUB(XX)
|
|
INTEGER :: XX
|
|
SUB=XX()
|
|
END
|
|
|
|
! { dg-final { cleanup-modules "TT" } }
|