[Bug fortran/80257] Cygwin test fail: pointer_check_1.f90 output test

dominiq at lps dot ens.fr gcc-bugzilla@gcc.gnu.org
Thu Mar 30 16:26:00 GMT 2017


https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80257

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
What is the output of

subroutine ppTest(f)
  implicit none
  external f
  call f()
end subroutine ppTest

Program RunTimeCheck
  implicit none
  external :: ppTest
  procedure(), pointer :: pptr

  pptr => sub
  call ppTest(pptr)

contains
  subroutine sub()
    print *, 'Hello World'
  end subroutine sub
end Program RunTimeCheck

?


More information about the Gcc-bugs mailing list