1! { dg-do compile }
2! { dg-options "-O3" }
3module hsl_ma41_m
4
5   implicit none
6
7   contains
8
9      subroutine solve_ma41
10         integer, dimension(20) :: info
11         call prininfo(15, info)
12      end subroutine solve_ma41
13
14      subroutine prininfo (ni, info)
15         integer, intent(in) ::  ni
16         integer, intent(in), dimension(:) :: info
17
18         integer i
19
20         call prinfo
21
22         contains
23
24            subroutine prinfo
25               do i = 1, ni
26                  write(*,'(i5,1x,i0)') i, info(i)
27               end do
28            end subroutine prinfo
29
30      end subroutine prininfo
31
32end module hsl_ma41_m
33