[Bug fortran/88463] New: Rejects conforming source, OpenMP Parallel region Default(None) reference to module parameter array, separate source

[themos.tsikas at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88463

            Bug ID: 88463
           Summary: Rejects conforming source, OpenMP Parallel region
                    Default(None) reference to module parameter array,
                    separate source
           Product: gcc
           Version: 8.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: themos.tsikas at gmail dot com
  Target Milestone: ---

Created attachment 45213
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=45213&action=edit
A module source and a source to exhibit the bug

Related to https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63922

Compiler error with OpenMP, default(none) and a parameter array in a module

References to a parameter array within an OpenMP parallel region with the 
default(none) clause fail if the parameter array is defined in a module that is 
compiled in a separate source file. 

gfortran  -c constants_module.f90 

gfortran -fopenmp modparm2.f90 constants_module.o -o modparam2
modparm2.f90:40:0:

     thread_copy(1:4) = constants_m(1:4)

Error: ‘constants_m’ not specified in enclosing ‘parallel’
modparm2.f90:37:0:

 !$OMP PARALLEL DEFAULT (NONE) PRIVATE(thread_copy,me)

Error: enclosing ‘parallel’
modparm2.f90:51:0:

     real_thread_copy(1:4) = real_constants_m(1:4)

Error: ‘real_constants_m’ not specified in enclosing ‘parallel’
modparm2.f90:48:0:

 !$OMP PARALLEL DEFAULT (NONE) PRIVATE(real_thread_copy,me)

Error: enclosing ‘parallel’