Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

! { dg-options "-std=f95" }

! { dg-options "-std=f95" }

!

!

! PR 39692: f95: conflict between EXTERNAL and POINTER

! PR 39692: f95: conflict between EXTERNAL and POINTER

!

!

! Test for Procedure Pointers (without PROCEDURE statements) with the -std=f95 flag.

! Test for Procedure Pointers (without PROCEDURE statements) with the -std=f95 flag.

!

!

! Contributed by Janus Weil 

! Contributed by Janus Weil 

pointer :: f

pointer :: f

external :: f   ! { dg-error "Fortran 2003: Procedure pointer" }

external :: f   ! { dg-error "Fortran 2003: Procedure pointer" }

external :: g

external :: g

pointer :: g   ! { dg-error "Fortran 2003: Procedure pointer" }

pointer :: g   ! { dg-error "Fortran 2003: Procedure pointer" }

real, pointer, external :: h   ! { dg-error "Fortran 2003: Procedure pointer" }

real, pointer, external :: h   ! { dg-error "Fortran 2003: Procedure pointer" }

interface

interface

  subroutine i

  subroutine i

  end subroutine i

  end subroutine i

end interface

end interface

pointer :: i   ! { dg-error "Fortran 2003: Procedure pointer" }

pointer :: i   ! { dg-error "Fortran 2003: Procedure pointer" }

pointer :: j

pointer :: j

interface

interface

  real function j()

  real function j()

  end function j   ! { dg-error "Fortran 2003: Procedure pointer" }

  end function j   ! { dg-error "Fortran 2003: Procedure pointer" }

end interface

end interface

contains

contains

  function k()   ! { dg-error "attribute conflicts with" }

  function k()   ! { dg-error "attribute conflicts with" }

    intrinsic sin

    intrinsic sin

    external k

    external k

    pointer k   ! { dg-error "Fortran 2003: Procedure pointer" }

    pointer k   ! { dg-error "Fortran 2003: Procedure pointer" }

    real k

    real k

  end function k

  end function k

end

end