hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90

[official-gcc.git] / gcc / testsuite / gfortran.dg / 20231103-2.f90

! { dg-do compile }
! { dg-options "-Ofast" }
subroutine shr_map_checkFldStrshr_map_mapSet_dest(ndst,max0,eps,sum0,maxval0,min0,nidnjd,renorm)
  allocatable  sum(:)
  logical renorm
  allocate(sum(ndst))
  do n=1,ndst 
    if (sum0 > eps) then
      rmax = max0
    endif
  enddo
  if (renorm) then
    rmin = maxval0
    rmax = minval(sum)
    do n=1,nidnjd
      if (sum0 > eps) then
        rmin = min0
      endif
    enddo
    write(*,*) rmin,rmax
  endif
end