Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

! PR fortran/30973

! PR fortran/30973

! Using symbols with the name of the module

! Using symbols with the name of the module

module foo

module foo

  integer :: i

  integer :: i

end module foo

end module foo

module bar

module bar

  integer :: j

  integer :: j

end module bar

end module bar

module test

module test

  use foo, only:

  use foo, only:

  integer :: foo ! { dg-error "cannot have a type" }

  integer :: foo ! { dg-error "cannot have a type" }

end module test

end module test

module test2

module test2

  use bar, only: foo => j

  use bar, only: foo => j

  use foo ! ok, unless foo is accessed

  use foo ! ok, unless foo is accessed

end module test2

end module test2

module test3

module test3

  use bar, only: foo => j

  use bar, only: foo => j

  use foo ! ok, unless foo is accessed

  use foo ! ok, unless foo is accessed

  foo = 5 ! { dg-error "is an ambiguous reference to 'j'" }

  foo = 5 ! { dg-error "is an ambiguous reference to 'j'" }

end module test3

end module test3

program test_foo

program test_foo

  use foo, only: foo  ! { dg-error "been used as an external module name" }

  use foo, only: foo  ! { dg-error "been used as an external module name" }

  use foo, only: i => foo! { dg-error "been used as an external module name" }

  use foo, only: i => foo! { dg-error "been used as an external module name" }

  use foo, only: foo => i! { dg-error "been used as an external module name" }

  use foo, only: foo => i! { dg-error "been used as an external module name" }

end program

end program

! { dg-final { cleanup-modules "foo bar test test2 test3" } }

! { dg-final { cleanup-modules "foo bar test test2 test3" } }