! { dg-do compile }
! PR fortran/107217 - ICE in gfc_arith_times
! Contributed by G.Steinmetz

program p
  print *, [real :: (['1'])] * 2 ! { dg-error "Cannot convert" }
  print *, 2 * [real :: (['1'])] ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] + 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] - 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] / 2 ! { dg-error "Cannot convert" }
  print *, 1 / [real :: (['1'])] ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] ** 2 ! { dg-error "Cannot convert" }
  print *, 2 ** [real :: (['1'])] ! { dg-error "Cannot convert" }
  print *, 2.0 ** [real :: (.true.)] ! { dg-error "Cannot convert" }
  print *, [real :: (.true.)] ** 2.0 ! { dg-error "Cannot convert" }
  print *, [complex :: (['1'])] ** (1.0,2.0) ! { dg-error "Cannot convert" }
  print *, (1.0,2.0) ** [complex :: (['1'])] ! { dg-error "Cannot convert" }
end