Hi,
we are trying to use some f77 code inside a f90 code.
We put all common blocks in one module and use this module were needed.
This works with most of other compilers but not with Compaq's. The problems seems to come from the presence of the blank common block. Here is an example code and the compilation error...
module commons
implicit integer(n)
common // nwork
end module commons
module test_mod
use commons
implicit none
integer :: a=1
end module test_mod
program test
use test_mod
implicit none
nwork=0
print *,nwork,a
end program test
and the compilation ends with this
f90 test.f90
f90: Severe: test.f90, line 4: **Internal compiler error: segmentation violation
signal raised** Please report this error along with the circumstances in which
it occurred in a Software Problem Report. Note: File and line given may not be
explicit cause of this error.
end module commons
^
