2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Incorrect extent in return value of TRANSPOSE intrinsic in dimension 1: is 2, should be 3" }
6 character(len=10) :: in
7 real, dimension(:,:), allocatable :: a,b
8 integer :: ax, ay, bx, by
11 read (unit=in,fmt='(4I2)') ax, ay, bx, by
18 ! { dg-output "Fortran runtime error: Incorrect extent in return value of TRANSPOSE intrinsic in dimension 1: is 2, should be 3" }