blob: ffafa269a1beec2508e1457e7e14061ca0090c2e [file] [log] [blame]
! { dg-do compile }
! PR 92961 - this used to ICE. Original test case by Gerhard Steinmetz.
program p
integer :: a((0)/0) ! { dg-error "Division by zero" }
integer :: b(0/(0)) ! { dg-error "Division by zero" }
integer :: c((0)/(0)) ! { dg-error "Division by zero" }
integer :: d(0/0) ! { dg-error "Division by zero" }
integer :: x = ubound(a,1) ! { dg-error "must be an array" }
end