1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3! PR 93500 - this used to cause an ICE
4
5program p
6  integer :: a(min(2,0)/0) ! { dg-error "Division by zero" }
7  integer, save :: c[min(2,0)/0,*] ! { dg-error "Division by zero|must have constant shape" }
8  integer :: b = lbound(a) ! { dg-error "must be an array" }
9  print *,lcobound(c)
10end program p
11
12subroutine s
13  integer :: a(min(2,0)/0)  ! { dg-error "Division by zero" }
14  integer, save :: c[min(2,0)/0,*] ! { dg-error "Division by zero" }
15  integer :: b = lbound(a)
16  print *,lcobound(c)
17end subroutine s
18