URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { 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" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.