a.33.2.f90   [plain text]

! { dg-do compile }

      REAL FUNCTION READ_NEXT()
        REAL, POINTER :: TMP
!$OMP SINGLE
          ALLOCATE (TMP)
!$OMP END SINGLE COPYPRIVATE (TMP) ! copies the pointer only
!$OMP MASTER
          READ (11) TMP
!$OMP END MASTER
!$OMP BARRIER
          READ_NEXT = TMP
!$OMP BARRIER
!$OMP SINGLE
          DEALLOCATE (TMP)
!$OMP END SINGLE NOWAIT
      END FUNCTION READ_NEXT