URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [transpose_reshape_r10.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-require-effective-target fortran_large_real }`	`! { dg-require-effective-target fortran_large_real }`
`program main`	`program main`
`integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)`	`integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)`
`character(len=90) line`	`character(len=90) line`
`real(k) :: a(3,3)`	`real(k) :: a(3,3)`
`real(k) :: b(9)`	`real(k) :: b(9)`
`a = 1.0_k`	`a = 1.0_k`
`a(1,3) = 0.0_k`	`a(1,3) = 0.0_k`
`write (line,'(9G10.6)') transpose(a)`	`write (line,'(9G10.6)') transpose(a)`
`write (line,'(9G10.6)') reshape(a,shape(b))`	`write (line,'(9G10.6)') reshape(a,shape(b))`
`end`	`end`