------- Comment #4 from adsspamtrap01 at yahoo dot com 2006-08-15 22:24 -------
(In reply to comment #2)
> Can you provide the source that generated the module?
>
(In reply to comment #2)
> Can you provide the source that generated the module?
>
OK, I've put together some sample .F files that demonstrate the
crash without compromising the COAMPS IP. Compile dummydomdec
and dummybdy_comm, then try to compile sub and you'll get the
crash.
-- dummydomdec.F -----------------------------------------------
module dummydomdec
implicit none
public
integer, allocatable :: iminf(:), imaxf(:), jminf(:), jmaxf(:)
end module dummydomdec
-- dummybdy_comm.F ---------------------------------------------
module dummybdy_comm
use dummydomdec
implicit none
private
public :: commptoc
contains
subroutine commptoc(puv, numz, nn, np, nbdypt, dti,
& parray1, carray1, parray3, carray3,
& ldavies, lnestf,iref,jref,lmpi2)
character (len=*), intent(in) :: puv
integer, intent(in) :: numz, nn, np, nbdypt
integer, intent(in) :: iref,jref
logical, intent(in) :: ldavies, lnestf
logical, intent(in) :: lmpi2
real, intent(in) :: dti
real, dimension(iminf(np):imaxf(np),jminf(np):jmaxf(np),numz)
& :: parray1, parray3
real, dimension(iminf(nn):imaxf(nn),jminf(nn):jmaxf(nn),numz)
& , intent(inout) :: carray1, carray3
end subroutine commptoc
end module dummybdy_comm
-- sub.F -------------------------------------------------------
subroutine sub( myint )
use dummydomdec
use dummybdy_comm
return
end
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28735
