Subversion Repositories openrisc

! { dg-do compile }

! This tests the patch for PR25024.

! PR25024 - The external attribute for subroutine a would cause an ICE.

  subroutine A ()

    EXTERNAL A  ! { dg-error "EXTERNAL attribute conflicts with SUBROUTINE" }

  END

function ext (y)

  real ext, y

  external ext      ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }

  ext = y * y

end function ext

function ext1 (y)

  real ext1, y

  external z        ! OK no conflict

  ext1 = y * y

end function ext1

program main

  real ext, inval

  external ext       ! OK, valid external reference.

  external main      ! { dg-error "PROGRAM attribute conflicts with EXTERNAL" }

  interface

    function ext1 (y)

      real ext1, y

      external ext1  ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }

    end function ext1

  end interface

  inval = 1.0

  print *, ext(inval)

  print *, ext1(inval)

  print *, inv(inval)

contains

  function inv (y)

    real inv, y

    external inv     ! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }

    inv = y * y * y

  end function inv

end program main