45 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2 3module named_constants4 implicit none5contains6 subroutine shrd()7 implicit none8 integer, parameter :: n = 79 real, parameter :: m = 7.010 logical, parameter :: l = .false.11 integer, dimension(3), parameter :: a = [1, 2, 3]12 ! no error expected13 !$omp parallel shared(n, m, l, a)14 print *, n, m, l, a15 !$omp end parallel16 end subroutine shrd17 18 subroutine frstprvt()19 implicit none20 integer, parameter :: n = 721 real, parameter :: m = 7.022 logical, parameter :: l = .false.23 integer, dimension(3), parameter :: a = [1, 2, 3]24 ! no error expected25 !$omp parallel firstprivate(n, m, l, a)26 print *, n, m, l, a27 !$omp end parallel28 end subroutine frstprvt29 30 subroutine prvt()31 implicit none32 integer, parameter :: n = 733 real, parameter :: m = 7.034 logical, parameter :: l = .false.35 integer, dimension(3), parameter :: a = [1, 2, 3]36 !ERROR: 'n' must be a variable37 !ERROR: 'm' must be a variable38 !ERROR: 'l' must be a variable39 !ERROR: 'a' must be a variable40 !$omp parallel private(n, m, l, a)41 print *, n, m, l, a42 !$omp end parallel43 end subroutine prvt44end module named_constants45