gcc/testsuite/gfortran.dg/pr41347.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
28
29
30
31
32
33

! { dg-do compile }
! { dg-options "-O3" }
module hsl_ma41_m

   implicit none

   contains

      subroutine solve_ma41
         integer, dimension(20) :: info
         call prininfo(15, info)
      end subroutine solve_ma41

      subroutine prininfo (ni, info)
         integer, intent(in) ::  ni
         integer, intent(in), dimension(:) :: info

         integer i

         call prinfo

         contains

            subroutine prinfo
               do i = 1, ni
                  write(*,'(i5,1x,i0)') i, info(i)
               end do
            end subroutine prinfo

      end subroutine prininfo

end module hsl_ma41_m
! { dg-final { cleanup-modules "hsl_ma41_m" } }