mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
16 lines
319 B
Fortran
16 lines
319 B
Fortran
! { dg-do compile }
|
|
module test_equivalence
|
|
real, private :: array1(100)
|
|
real, private :: array2(100)
|
|
equivalence(array1(3),array2(3))
|
|
end module test_equivalence
|
|
|
|
module mymodule
|
|
use test_equivalence
|
|
real, dimension(:), allocatable :: array1
|
|
end module mymodule
|
|
|
|
program test
|
|
use mymodule
|
|
end program test
|