https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85675
--- Comment #2 from Harald Anlauf <anlauf at gmx dot de> ---
Running under the debugger (separate file 2 only):
Breakpoint 1, gfc_omp_predetermined_sharing (decl=0xb7c100fc)
at ../../trunk/gcc/fortran/trans-openmp.c:152
152 if (VAR_P (decl) && TREE_READONLY (decl) && TREE_STATIC (decl))
(gdb) p decl->base.readonly_flag
$10 = 1
(gdb) p decl->base.static_flag
$11 = 0
Running on the whole file:
(gdb) p decl->base.static_flag
$16 = 1
