[Bug libgomp/44536] New: OMP: missing error with default(none)

["jv244 at cam dot ac dot uk" <gcc-bugzilla at gcc dot gnu dot org>]

the following should give an error message like:

fortcom: Error: test.f90, line 5: Since the OpenMP DEFAULT(NONE) clause
applies, the PRIVATE, SHARED, REDUCTION, FIRSTPRIVATE, or LASTPRIVATE attribute
must be explicitly specified for every variable.   [A]
  J=A(I)
----^
compilation aborted for test.f90 (code 1)


> gfortran -c -fopenmp test.f90
> cat test.f90

SUBROUTINE S1(a,i,j)
  INTEGER, DIMENSION(:), INTENT(IN) :: a
  INTEGER :: i,j
!$OMP PARALLEL DEFAULT(NONE) SHARED(I,J)
  J=A(I)
!$OMP END PARALLEL
END SUBROUTINE


-- 
           Summary: OMP: missing error with default(none)
           Product: gcc
           Version: 4.4.5
            Status: UNCONFIRMED
          Keywords: accepts-invalid
          Severity: normal
          Priority: P3
         Component: libgomp
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44536