gcc/testsuite/gfortran.dg/generic_3.f90

   1 ! { dg-do compile }
   2 ! Testcase from PR 17713
   3 module fit_functions
   4   implicit none
   5 contains
   6   subroutine gauss( x, a, y, dy, ma )
   7     double precision, intent(in)     :: x
   8     double precision, intent(in)     :: a(:)
   9     double precision, intent(out)    :: y
  10     double precision, intent(out)    :: dy(:)
  11     integer,          intent(in)     :: ma
  12   end subroutine gauss
  13 end module fit_functions
  14
  15 subroutine mrqcof( x, y, sig, ndata, a, ia, ma )
  16   use fit_functions
  17
  18   implicit none
  19   double precision, intent(in)   :: x(:), y(:), sig(:)
  20   integer,   intent(in)          :: ndata
  21   double precision, intent(in)   :: a(:)
  22   integer,   intent(in)          :: ia(:), ma
  23
  24   integer                           i
  25   double precision                  yan, dyda(ma)
  26
  27   do i = 1, ndata
  28      call gauss( x(i), a, yan, dyda, ma )
  29   end do
  30 end subroutine mrqcof