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