------- Comment #4 from pinskia at gcc dot gnu dot org 2007-04-21 23:56 -------
(In reply to comment #3)
> The OP doesn't understand his own program.
Huh? (or did you close the wrong bug report?)
Here is a simplified testcase that does not call print:
program test_assign
type my_type
integer :: a
integer :: b
end type my_type
type(my_type), dimension(1) :: mine ! note that MINE is an array
mine%b=4
mine%a=1
mine%a=0
if (any (mine%b .ne. 4)) call abort ()
end program test_assign
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|RESOLVED |REOPENED
Resolution|INVALID |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31620
