https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67250
--- Comment #3 from Jeff Hammond <jeff.science at gmail dot com> ---
Unfortunately, this does not change anything.
> gfortran-5 -traditional-cpp -I. -E source.F
# 1 "source.F"
# 1 "<built-in>"
# 1 "<command-line>"
# 1 "source.F"
C
C OLD SCHOOL COMMENTS
C
subroutine xyz(stuff)
implicit none
# 1 "header.fh" 1
! comment
integer foo
external foo
# 7 "source.F" 2
integer stuff
integer err_##handle; integer l_##handle,k_##handle;
err_##handle=foo(100,#handle,l_##handle,k_##handle); if
(.not.err_##handle) call bar("PUSH"#handle,#100);
print*,stuff
return
end
