hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90

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

! { dg-do compile }
program main
  implicit none
  integer :: iq,nq,recl
  DO iq = 1, nq
     call foobar  ! { dg-error "redefined" }     
  ENDDO  
CONTAINS

  subroutine foobar
    inquire (iolength=nq) iq ! { dg-error "redefined" }
  end subroutine foobar
END program main