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