http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46339
--- Comment #19 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2010-11-19
17:42:12 UTC ---
Another test case to think about. Ifort compiles but gives:
ptr =
myA%i%j = 1 2 3 4
gfortran compiles and gives:
$ ./a.out
Segmentation fault (core dumped)
$ gfc -fbounds-check test3.f90
$ ./a.out
At line 19 of file test3.f90
Fortran runtime error: Array bound mismatch for dimension 1 of array 'ptr'
(140251380424698/4)
Is there something invalid here?
module test
implicit none
type b
integer :: j
character :: c
end type b
type a
type(b), dimension(4) :: i
end type a
end module test
program main
use test
implicit none
type(a), target :: myA
integer, dimension(:), pointer :: ptr
myA%i(1:4)%j = (/ 1, 2, 3, 4 /)
myA%i(1:4)%c = (/ 'a', 'b', 'c', 'd' /)
ptr = myA%i%j
print *, " ptr =", ptr
print *, " myA%i%j =", myA%i%j
end program main
