1! { dg-do run } 2! PR61499 3program read_internal 4 5 integer :: x(9),i,iostat 6 character(len=512) :: iomsg 7 character(kind=1,len=30), dimension(:), allocatable, save :: source 8 allocate(source(3)) 9 source=[" 1 1 -1"," 1 -1 1"," -1 1 1"] !This fails 10 read(source,*) (x(i), i=1,6) 11end program read_internal 12