1module m 2 implicit none (type, external) 3 4contains 5 6subroutine foo (i) 7 integer :: i 8 9 !$omp teams num_teams (6 : 4) ! { dg-warning "NUM_TEAMS lower bound at .1. larger than upper bound at .2." } 10 !$omp end teams 11 12 !$omp teams num_teams (-7) ! { dg-warning "INTEGER expression of NUM_TEAMS clause at .1. must be positive" } 13 !$omp end teams 14 15 !$omp teams num_teams (i : -7) ! { dg-warning "INTEGER expression of NUM_TEAMS clause at .1. must be positive" } 16 !$omp end teams 17 18 !$omp teams num_teams (-7 : 8) ! { dg-warning "INTEGER expression of NUM_TEAMS clause at .1. must be positive" } 19 !$omp end teams 20end 21 22subroutine bar (i) 23 integer :: i 24 25 !$omp target teams num_teams (6 : 4) ! { dg-warning "NUM_TEAMS lower bound at .1. larger than upper bound at .2." } 26 !$omp end target teams 27 28 !$omp target teams num_teams (-7) ! { dg-warning "INTEGER expression of NUM_TEAMS clause at .1. must be positive" } 29 !$omp end target teams 30 31 !$omp target teams num_teams (i : -7) ! { dg-warning "INTEGER expression of NUM_TEAMS clause at .1. must be positive" } 32 !$omp end target teams 33 34 !$omp target teams num_teams (-7 : 8) ! { dg-warning "INTEGER expression of NUM_TEAMS clause at .1. must be positive" } 35 !$omp end target teams 36end 37end module 38