gcc/testsuite/gfortran.dg/derived_constructor_comps_7.f90

   1 ! { dg-do run }
   2 ! PR fortran/104619
   3
   4 module m
   5   implicit none
   6   type :: item
   7      real :: x
   8   end type item
   9   type :: container
  10      type(item) :: items(3)
  11   end type container
  12 end module
  13
  14 program p
  15   use m
  16   implicit none
  17   type(item), allocatable :: items(:)
  18   type(container) :: c
  19   integer         :: i, n
  20   items = [item(3.0), item(4.0), item(5.0)]
  21   c = container(items=[(items(i), i = 1, size(items))])
  22   if (any (c%items% x /= items% x)) stop 1
  23   n = size (items)
  24   c = container(items=[(items(i), i = 1, n)])
  25   if (any (c%items% x /= items% x)) stop 2
  26   c = container(items=[(items(i), i = 1, 3)])
  27   if (any (c%items% x /= items% x)) stop 3
  28 end program