gcc/testsuite/gfortran.dg/pr41347.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3" }
   3 module 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
  32 end module hsl_ma41_m