pure_non_intrinsic_dummy_1.f90

linux下编程用 编译软件

! { dg-do compile }
! Tests the fix for 20871, in which pure non-intrinsic procedures were permitted to
! be dummy arguments.
!
! Contributed by Joost VandeVondele  <[e-mail]>
!
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