33 lines
803 B
Fortran
33 lines
803 B
Fortran
! { dg-do compile }
|
|
! PR33162 INTRINSIC functions as ACTUAL argument
|
|
! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
module m
|
|
implicit none
|
|
interface
|
|
double precision function my1(x)
|
|
double precision, intent(in) :: x
|
|
end function my1
|
|
end interface
|
|
interface
|
|
real(kind=4) function my2(x)
|
|
real, intent(in) :: x
|
|
end function my2
|
|
end interface
|
|
interface
|
|
real function my3(x, y)
|
|
real, intent(in) :: x, y
|
|
end function my3
|
|
end interface
|
|
end module
|
|
|
|
program test
|
|
use m
|
|
implicit none
|
|
procedure(dcos):: my1 ! { dg-error "Cannot change attributes" }
|
|
procedure(cos) :: my2 ! { dg-error "Cannot change attributes" }
|
|
procedure(dprod) :: my3 ! { dg-error "Cannot change attributes" }
|
|
|
|
end program test
|
|
|
|
! { dg-final { cleanup-modules "m" } }
|