! { dg-do compile } | |
! PR fortran/104212 - ICE in transformational_result | |
! Contributed by G.Steinmetz | |
program p | |
logical, parameter :: a(*,*) = reshape([.true.,.false.], shape=[1,2]) | |
real, parameter :: r(*,*) = reshape([1.,2.], shape=[1,2]) | |
print *, parity(a) | |
print *, parity(a, dim=1) | |
print *, parity(a, dim=[1]) ! { dg-error "must be a scalar" } | |
print *, norm2 (r) | |
print *, norm2 (r, dim=1) | |
print *, norm2 (r, dim=[1]) ! { dg-error "must be a scalar" } | |
end |