Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/do_subscript_3.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 ! { dg-do compile }
2 ! PR fortran/91424
3 ! Check that only one warning is issued inside blocks, and that
4 ! warnings are also issued for contained subroutines.
5
6 program main
7 real :: a(5)
8 block
9 integer :: j
10 do j=0, 5 ! { dg-warning "out of bounds" }
11 a(j) = 2. ! { dg-warning "out of bounds" }
12 end do
13 end block
14 call x
15 contains
16 subroutine x
17 integer :: i
18 do i=1,6 ! { dg-warning "out of bounds" }
19 a(i) = 2. ! { dg-warning "out of bounds" }
20 end do
21 end subroutine x
22 end program main