Subversion Repositories openrisc

! { dg-do compile }

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

!

! PR fortran/34547

! PR fortran/50375

subroutine test_PR50375_1 ()

  ! Contributed by Vittorio Zecca

  interface gen1

    subroutine s11 (pi)

      integer, pointer :: pi

    end subroutine

    subroutine s12 (pr)

      real, pointer :: pr

    end subroutine

  end interface

  call gen1 (null ()) ! { dg-error "MOLD= required in NULL|There is no specific subroutine" }

end subroutine test_PR50375_1

subroutine test_PR50375_2 ()

  interface gen2

    subroutine s21 (pi)

      integer, pointer :: pi

    end subroutine

    subroutine s22 (pr)

      real, optional :: pr

    end subroutine

  end interface

  call gen2 (null ()) ! OK in F95/F2003 (but not in F2008)

end subroutine test_PR50375_2

subroutine test_PR34547_1 ()

  call proc (null ()) ! { dg-error "MOLD argument to NULL required" }

end subroutine test_PR34547_1

subroutine test_PR34547_2 ()

  print *, null () ! { dg-error "in data transfer statement requires MOLD" }

end subroutine test_PR34547_2

subroutine test_PR34547_3 ()

  integer, allocatable :: i(:)

  print *, NULL(i) ! { dg-error "Fortran 2003: NULL intrinsic with allocatable MOLD" }

end subroutine test_PR34547_3