hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90

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

! { dg-do compile }
! PR fortran/85877
! A procedure with the bind(c) attribute shall have an explicit interface
! Contributed by G. Steinmetz

function f() bind(c)
  f = 42.
end

subroutine p
  bind(c) f     ! { dg-error "must be explicit" }
  x = f()
end

function g() bind(c)
  g = 42.
end

subroutine s
  interface
     function g() bind(c)
     end function g
  end interface
  x = g()
end