out of curiosity I experimented a bit with this source code. It can be
simplified to:
module test
integer, parameter :: rb = kind(1.0)
real(kind=rb) :: ka(5,13,10) , absa(65,10)
equivalence (ka(1,1,1),absa(1,1))
end module test
If I make it a program, rather than a module, the compiler ha
module test
integer, parameter :: rb = kind(1.0)
real(kind=rb) :: ka(5,13,10) , absa(65,10)
real(kind=rb) :: kb(5,13:59,10), absb(235,10)
equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1))
end module test
Compiling the attached fortran code with "gfortran -c test_comp
2 matches
Mail list logo
