1! { dg-do run } 2! { dg-require-effective-target fortran_large_real } 3program main 4 integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1) 5 character(len=90) line 6 real(k) :: a(3,3) 7 real(k) :: b(9) 8 a = 1.0_k 9 a(1,3) = 0.0_k 10 write (line,'(9G10.6)') transpose(a) 11 write (line,'(9G10.6)') reshape(a,shape(b)) 12end 13