blob: 34c9691fae13b4f7cc65cd8b53576b4ea99d7b33 (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! PR fortran/108529 - ICE in transformational_result
! Contributed by G.Steinmetz
program p
integer, parameter :: a(*,*) = reshape([1, 2, 3, 4], [2, 2])
logical, parameter :: b(2,*) = a > 2 ! { dg-error "Assumed size" }
logical, parameter :: c(*) = all(b, 1) ! { dg-error "Bad shape" }
end
|