Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/arith_divide_3.f90 @ 152:2b5abeee2509
update gcc11
| author | anatofuz |
|---|---|
| date | Mon, 25 May 2020 07:50:57 +0900 |
| parents | |
| children |
| rev | line source |
|---|---|
| 152 | 1 ! { dg-do compile } |
| 2 ! { dg-options "-fcoarray=single" } | |
| 3 ! PR 93500 - this used to cause an ICE | |
| 4 | |
| 5 program 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) | |
| 10 end program p | |
| 11 | |
| 12 subroutine 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) | |
| 17 end subroutine s |