If the OMP parallel default is set to 'none', then there
is no way to call an external function. As an example:
external f
!$OMP parallel default(none) &
!$OMP shared (f)
Because f is an external function then gfortran quits with the
error:
!$OMP shared (f)
1
Error: Object 'f' is not a variable at (1)
The enclosed example code doesn't work under 4.5. It works with
all other OpenMP fortran compilers that have been tried including
gfortran 4.3, intel, pgi, pathscale and IBM's XLf.
The current workaround is to use a OMP parallel default of shared
instead of none.
!$OMP parallel default(shared)
The following subroutine reproduces the error:
----
!gfortran -fopenmp -c g4.5_omp.f90
!gfortran --version = 4.5.0
subroutine dp (f,a,n)
implicit none
integer(8) f,a
integer(4) n
external f
integer i,j
!$OMP parallel default(none) &
!$OMP private (i,j) &
!$OMP shared (a,n,f)
! It FAILS with:
! !$OMP shared (a,n,f)
! 1
! Error: Object 'f' is not a variable at (1)
! If I leave f OFF the 'OMP shared' line then I get:
! g4.5_omp.f90: In function 'dp':
! g4.5_omp.f90:36:0: error: 'f' not specified in enclosing parallel
! g4.5_omp.f90:18:0: error: enclosing parallel
!$OMP do schedule (dynamic)
do i = 1, n
j = f(a,i)
enddo
!$omp end do
!$omp end parallel
return
end subroutine dp
--
Summary: I can't declare an external function in an OMP shared
statement.
Product: gcc
Version: 4.5.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: kumbera1 at llnl dot gov
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44036
