2 ! { dg-additional-options "-fno-realloc-lhs -ffrontend-optimize" }
3 ! This used to segfault at runtime.
4 ! Original test case by Harald Anlauf.
7 real, allocatable
:: b(:,:)
9 character(len
=20) :: line
11 call random_number (b
)
12 write (unit
=line
,fmt
='(2I5)') shape (matmul (b
, transpose (b
)))
13 if (line
/= ' 5 5') call abort