blob: ae48857d50731fe2695bc33eb4a24261f906331b [file] [log] [blame]
! { 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