blob: ae48857d50731fe2695bc33eb4a24261f906331b (
plain)
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
|
! { 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
|
