! { 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