modula2: Simplify REAL/LONGREAL/SHORTREAL node creation.

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr86322_3.f90

! { dg-do run }
program bar
   type a
     integer, pointer :: i
   end type a
   type b
     type(a) :: j
   end type b
   integer, target, save :: k = 42
   type(b) x
   data x%j%i/k/
   if (x%j%i /= 42) stop 1
end program bar