diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml index 60668032..d1240055 100644 --- a/.github/workflows/build.yml +++ b/.github/workflows/build.yml @@ -329,7 +329,7 @@ jobs: fi if [ "${NATIVE_MULTI_IMAGE}" == true ] ; then if [[ $COMPILER_VERSION == latest ]] ; then - echo "FFLAGS=$FFLAGS -fcoarray -DHAVE_COARRAY -DIGNORE_FAILURES=11" >> "$GITHUB_ENV" + echo "FFLAGS=$FFLAGS -fcoarray -DHAVE_COARRAY -DIGNORE_FAILURES=9" >> "$GITHUB_ENV" else echo "FFLAGS=$FFLAGS -fcoarray -DIGNORE_FAILURES=8" >> "$GITHUB_ENV" fi diff --git a/src/caffeine/prif_private_s.F90 b/src/caffeine/prif_private_s.F90 index 276213c2..f732305a 100644 --- a/src/caffeine/prif_private_s.F90 +++ b/src/caffeine/prif_private_s.F90 @@ -596,7 +596,7 @@ recursive function team_check(team, known_active, cycle_check) result(result_) call assert_always(info%team_number == -1, "invalid team_number in initial team descriptor") call assert_always(.not. associated(info%parent_team), "invalid parent_team in initial team descriptor") else ! non-initial team, have parent team - call assert_always(info%team_number > 0, "invalid team_number in initial team descriptor") + call assert_always(info%team_number > 0, "invalid team_number in non-initial team descriptor") call assert_always(associated(info%parent_team), "invalid parent_team in team descriptor") end if