413e71b700
The following code is now accepted: ``` module m end program m use m end ``` The PROGRAM name doesn't really have an effect on the compilation result, so it shouldn't result in symbol name conflicts. This change makes the main program symbol name all uppercase in the cooked character stream. This makes it distinct from all other symbol names that are all lowercase in cooked character stream. Modified the tests that were checking for lower case main program name.
29 lines
743 B
Fortran
29 lines
743 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -pedantic
|
|
! OpenMP Version 5.1
|
|
! Check OpenMP construct validity for the following directives:
|
|
! 2.21.2 Threadprivate Directive
|
|
|
|
module mod1
|
|
end
|
|
|
|
program main
|
|
use mod1
|
|
integer, parameter :: i = 1
|
|
|
|
!ERROR: The module name cannot be in a THREADPRIVATE directive
|
|
!$omp threadprivate(mod1)
|
|
|
|
! This is now allowed, since "main" is implicitly declared symbol,
|
|
! separate from the main program symbol.
|
|
!$omp threadprivate(main)
|
|
|
|
!ERROR: The entity with PARAMETER attribute cannot be in a THREADPRIVATE directive
|
|
!$omp threadprivate(i)
|
|
|
|
contains
|
|
subroutine sub()
|
|
!ERROR: The procedure name cannot be in a THREADPRIVATE directive
|
|
!$omp threadprivate(sub)
|
|
end
|
|
end
|