5 integer :: x(9),i
,iostat
6 character(len
=512) :: iomsg
7 character(kind
=1,len
=30), dimension(:), allocatable
, save :: source
9 source
=[" 1 1 -1"," 1 -1 1"," -1 1 1"] !This fails
10 read(source
,*) (x(i
), i
=1,6)
11 end program read_internal