2 ! { dg-options "-fbounds-check -fno-realloc-lhs" }
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: Array bound mismatch for dimension 1 of array 'b' \\(3/2\\)" }