https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67250
--- Comment #4 from Andrew Pinski <pinskia at gcc dot gnu.org> ---
(In reply to Jeff Hammond from comment #3)
> Unfortunately, this does not change anything.
>
I saying gfortran defaults to that and you can use that option to cpp to get
the same behavior.
> > 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
