[Bug fortran/63327] New: Poor caret location in error mesage

[Joost.VandeVondele at mat dot ethz.ch]

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

            Bug ID: 63327
           Summary: Poor caret location in error mesage
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: enhancement
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: Joost.VandeVondele at mat dot ethz.ch

Example code showing somewhat confusing lines and caret info

> cat test.f90
  SUBROUTINE S1(d)
    INTEGER :: i,d(*)
    !$OMP PARALLEL DO &
    !$OMP   DEFAULT(NONE) SHARED(d) PRIVATE(i)
    DO i=1,100
       c= c + &
          d(i)
       d(i)=c*c
    ENDDO
  END SUBROUTINE S1

> gfortran -fopenmp test.f90
test.f90: In function ‘s1’:
test.f90:7:0: error: ‘c’ not specified in enclosing parallel
           d(i)
 ^
test.f90:4:0: error: enclosing parallel
     !$OMP   DEFAULT(NONE) SHARED(d) PRIVATE(i)
 ^