2 ! Testcase from PR 17713
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
13 end module fit_functions
15 subroutine mrqcof( x, y, sig, ndata, a, ia, ma )
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
25 double precision yan, dyda(ma)
28 call gauss( x(i), a, yan, dyda, ma )
32 ! { dg-final { cleanup-modules "fit_functions" } }