[Bug fortran/86421] New: OpenMP declare simd linear ref in module causes gfortran to bail out

[juhmat at gmail dot com]

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

            Bug ID: 86421
           Summary: OpenMP declare simd linear ref in module causes
                    gfortran to bail out
           Product: gcc
           Version: 8.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: juhmat at gmail dot com
  Target Milestone: ---

Created attachment 44361
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=44361&action=edit
Full compiler output and output of "-save-temps"

Using module that has subroutine containing `!$OMP DECLARE SIMD LINEAR(REF(x))`
directive will cause compiler to bail out in: "(null):0: confused by earlier
errors, bailing out"

Minimal reproducing code:

  module testmodule
    use iso_fortran_env
    implicit none
  contains
    subroutine foo(x) 
      real(kind=real64) :: x
      !$OMP DECLARE SIMD LINEAR(REF(x))
    end subroutine
  end module testmodule

  program testprogram
    use testmodule
    implicit none
  end program testprogram


Compilation command:

  gfortran-8 -fopenmp -save-temps -v testone.F90 -o testone