Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! PR33162 INTRINSIC functions as ACTUAL argument

! PR33162 INTRINSIC functions as ACTUAL argument

! Test case adapted from PR by Jerry DeLisle 

! Test case adapted from PR by Jerry DeLisle 

module m

module m

implicit none

implicit none

contains

contains

  subroutine sub(a)

  subroutine sub(a)

    interface

    interface

      function a(x)

      function a(x)

        real :: a, x

        real :: a, x

        intent(in) :: x

        intent(in) :: x

      end function a

      end function a

    end interface

    end interface

    print *, a(4.0)

    print *, a(4.0)

  end subroutine sub

  end subroutine sub

end module m

end module m

use m

use m

implicit none

implicit none

EXTERNAL foo  ! interface is undefined

EXTERNAL foo  ! interface is undefined

procedure(cos) :: foo ! { dg-error "Duplicate EXTERNAL attribute specified" }

procedure(cos) :: foo ! { dg-error "Duplicate EXTERNAL attribute specified" }

call sub(foo)         ! { dg-error "is not a function" }

call sub(foo)         ! { dg-error "is not a function" }

end

end

! { dg-final { cleanup-modules "m" } }

! { dg-final { cleanup-modules "m" } }