gcc/testsuite/gfortran.dg/namelist_54.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR37707 Namelist read of array of derived type incorrect.
   5 type s
   6    integer m
   7    integer n
   8 end type s
   9 type(s) :: a(3)
  10 character*80 :: l = ' &namlis a%m=1,2, a%n=5,6, /'
  11 namelist /namlis/ a
  12 a%m=[87,88,89]
  13 a%n=[97,98,99]
  14 read(l,namlis)
  15 if (a(1)%m /= 1 .or. a(2)%m /= 2 .or. a(1)%n /= 5 .or. a(2)%n /= 6 .or. &
  16   & a(3)%m /= 89 .or. a(3)%n /= 99) call abort
  17 end