From 3e5c803c59d944970f3a4a1d303fe8501b379ef9 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 31 Dec 2019 20:15:08 +0100 Subject: [PATCH] Make "OMP task depend" sections conditional on OpenMP4, not just OpenMP to allow compilation with older implementations --- SRC/chetrd_hb2st.F | 2 +- SRC/dsytrd_sb2st.F | 2 +- SRC/ssytrd_sb2st.F | 2 +- SRC/zhetrd_hb2st.F | 3 ++- 4 files changed, 5 insertions(+), 4 deletions(-) diff --git a/SRC/chetrd_hb2st.F b/SRC/chetrd_hb2st.F index 330e4f8ca2..a3d8259d32 100644 --- a/SRC/chetrd_hb2st.F +++ b/SRC/chetrd_hb2st.F @@ -512,7 +512,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * * Call the kernel * -#if defined(_OPENMP) +#if defined(_OPENMP) && _OPENMP >= 201307 IF( TTYPE.NE.1 ) THEN !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) !$OMP$ DEPEND(in:WORK(MYID-1)) diff --git a/SRC/dsytrd_sb2st.F b/SRC/dsytrd_sb2st.F index 19f3613e3f..0c0dbf1253 100644 --- a/SRC/dsytrd_sb2st.F +++ b/SRC/dsytrd_sb2st.F @@ -481,7 +481,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * * Call the kernel * -#if defined(_OPENMP) +#if defined(_OPENMP) && _OPENMP >= 201307 IF( TTYPE.NE.1 ) THEN !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) !$OMP$ DEPEND(in:WORK(MYID-1)) diff --git a/SRC/ssytrd_sb2st.F b/SRC/ssytrd_sb2st.F index 9893181cf5..1d8c9f5c54 100644 --- a/SRC/ssytrd_sb2st.F +++ b/SRC/ssytrd_sb2st.F @@ -481,7 +481,7 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * * Call the kernel * -#if defined(_OPENMP) +#if defined(_OPENMP) && _OPENMP >= 201307 IF( TTYPE.NE.1 ) THEN !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) !$OMP$ DEPEND(in:WORK(MYID-1)) diff --git a/SRC/zhetrd_hb2st.F b/SRC/zhetrd_hb2st.F index b988f25ba4..4ba7bfc211 100644 --- a/SRC/zhetrd_hb2st.F +++ b/SRC/zhetrd_hb2st.F @@ -512,7 +512,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * * Call the kernel * -#if defined(_OPENMP) +#if defined(_OPENMP) && _OPENMP >= 201307 + IF( TTYPE.NE.1 ) THEN !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) !$OMP$ DEPEND(in:WORK(MYID-1))