gcc/testsuite/gfortran.dg/do_check_18.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

! { dg-do compile }
! PR103718,
! PR103719 - ICE in doloop_contained_procedure_code
! Contributed by G.Steinmetz

subroutine s1
  integer :: i
  do i = 1, 2
     call s
  end do
contains
  subroutine s
    integer :: n
    inquire (iolength=n) 0  ! valid
  end
end

subroutine s2
  integer :: i
  do i = 1, 2
     call s
  end do
contains
  subroutine s
    shape(1) = 0    ! { dg-error "Non-variable expression" }
  end
end