This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/41807] [4.5/4.4 Regression] data statement with nested type constructors



------- Comment #4 from dominiq at lps dot ens dot fr  2009-11-06 15:02 -------
Further reduced test case:

  type :: multpol
     real :: coor(3)
  end type multpol
  integer, parameter :: n_nub=2
  type(multpol) :: dft_water_nuc(n_nub)
  real, parameter :: mcoor1(3)=(/ 0.0,      0.0, -0.119151/)
  real, parameter :: mcoor2(3)=(/-1.431042, 0.0,  0.945510/)
  integer :: i, ia(2)

  data(dft_water_nuc(i), i=1,n_nub) /multpol( mcoor1), multpol( mcoor2)/
  data(ia(i), i=1,n_nub) / 1, 2/
end

The error is emitted only for the derived type.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41807


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]