[GOMP4, OpenACC] Fixed-form Fortran code failing to parse

[Thomas Schwinge <thomas at codesourcery dot com>]

Hi!

I understand the attached fixed.f to be well-formed fixed-form Fortran
code, but it fails to parse in OpenACC mode:

    gcc/xgcc -Bgcc/ -Bx86_64-unknown-linux-gnu/lib{gomp,gfortran}/ -Bx86_64-unknown-linux-gnu/lib{gomp,gfortran}/.libs -Ix86_64-unknown-linux-gnu/lib{gomp,gfortran} -I../source/lib{gomp,gfortran} -Lx86_64-unknown-linux-gnu/lib{gomp,gfortran}/.libs -Wl,-rpath,"$PWD"/x86_64-unknown-linux-gnu/lib{gomp,gfortran}/.libs ../../fixed.f -lgfortran -fopenacc
    ../../fixed.f:8.12:
    
          END IF                                                            
                1
    Fatal Error: Invalid character '$' at (1). Use -fdollar-ok to allow it as an extension

In -fopenmp mode as well as in combined -fopenacc -fopenmp mode as well
as in "regular" (no -fopen*) mode, it parses fine.  I couldn't find
anything obvious in gcc/fortran/parse.c; is someone able to have a more
in-depth look than I have?


We should then also be adding some test coverage for fixed-form mode in
gcc/testsuite/gfortran.dg/goacc/.


GrÃÃe,
 Thomas


      INTEGER :: ARGC
      ARGC = COMMAND_ARGUMENT_COUNT ()

!$OMP PARALLEL
!$ACC PARALLEL COPYIN(ARGC)
      IF (ARGC .NE. 0) THEN
         CALL ABORT
      END IF
!$ACC END PARALLEL
!$OMP END PARALLEL

      END

Attachment: pgphSM9idpArM.pgp
Description: PGP signature