https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119459
Bug ID: 119459
Summary: gfortran.dg/gomp/interop-5.f90 FAILs
Product: gcc
Version: 15.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: ro at gcc dot gnu.org
CC: parras at gcc dot gnu.org
Target Milestone: ---
Target: i386-pc-solaris2.11, sparc-sun-solaris2.11
The new gfortran.dg/gomp/interop-5.f90 test FAILS on 32-bit Solaris/x86 and
Solaris/SPARC:
+UNRESOLVED: gfortran.dg/gomp/interop-5.f90 -O scan-tree-dump-times
omplower "void \\\\* interopobjs.[0-9]+\\\\[5\\\\];[\\r\\n
]*integer\\\\(kind=4\\\\) tgt_tgtsync.[0-9]+\\\\[5\\\\];[\\r\\n
]*integer\\\\(kind=8\\\\) \\\\* & a3.[0-9]+;[\\r\\n ]*integer\\\\(kind=8\\\\)
\\\\* D.[0-9]+;[\\r\\n ]*integer\\\\(kind=8\\\\) \\\\* a2.[0-9]+;[\\r\\n
]*integer\\\\(kind=8\\\\) & a1.[0-9]+;[\\r\\n ]*interopobjs.[0-9]+\\\\[0\\\\] =
&b;[\\r\\n ]*tgt_tgtsync.[0-9]+\\\\[0\\\\] = 1;[\\r\\n
]*interopobjs.[0-9]+\\\\[1\\\\] = &a4;[\\r\\n ]*tgt_tgtsync.[0-9]+\\\\[1\\\\] =
1;[\\r\\n ]*a3.[0-9]+ = a3;[\\r\\n ]*D.[0-9]+ = \\\\*a3.[0-9]+;[\\r\\n
]*interopobjs.[0-9]+\\\\[2\\\\] = D.[0-9]+;[\\r\\n
]*tgt_tgtsync.[0-9]+\\\\[2\\\\] = 1;[\\r\\n ]*a2.[0-9]+ = a2;[\\r\\n
]*interopobjs.[0-9]+\\\\[3\\\\] = a2.[0-9]+;[\\r\\n
]*tgt_tgtsync.[0-9]+\\\\[3\\\\] = 1;[\\r\\n ]*a1.[0-9]+ = a1;[\\r\\n
]*interopobjs.[0-9]+\\\\[4\\\\] = a1.[0-9]+;[\\r\\n
]*tgt_tgtsync.[0-9]+\\\\[4\\\\] = 1;[\\r\\n ]*__builtin_GOMP_interop \\\\(-5,
5, &interopobjs.[0-9]+, &tgt_tgtsync.[0-9]+, 0B, 0, 0B, 0, 0B, 0, 0B\\\\);" 1
+UNRESOLVED: gfortran.dg/gomp/interop-5.f90 -O scan-tree-dump-times
omplower "void \\\\* interopobjs.[0-9]+\\\\[5\\\\];[\\r\\n
]*integer\\\\(kind=8\\\\) \\\\* & a3.[0-9]+;[\\r\\n ]*integer\\\\(kind=8\\\\)
\\\\* D.[0-9]+;[\\r\\n ]*integer\\\\(kind=8\\\\) \\\\* a2.[0-9]+;[\\r\\n
]*integer\\\\(kind=8\\\\) & a1.[0-9]+;[\\r\\n ]*interopobjs.[0-9]+\\\\[0\\\\] =
&b;[\\r\\n ]*interopobjs.[0-9]+\\\\[1\\\\] = &a4;[\\r\\n ]*a3.[0-9]+ =
a3;[\\r\\n ]*D.[0-9]+ = \\\\*a3.[0-9]+;[\\r\\n ]*interopobjs.[0-9]+\\\\[2\\\\]
= D.[0-9]+;[\\r\\n ]*a2.[0-9]+ = a2;[\\r\\n ]*interopobjs.[0-9]+\\\\[3\\\\] =
a2.[0-9]+;[\\r\\n ]*a1.[0-9]+ = a1;[\\r\\n ]*interopobjs.[0-9]+\\\\[4\\\\] =
a1.[0-9]+;[\\r\\n ]*__builtin_GOMP_interop \\\\(-5, 0, 0B, 0B, 0B, 0, 0B, 5,
&interopobjs.[0-9]+, 0, 0B\\\\);" 1
[...]
+FAIL: gfortran.dg/gomp/interop-5.f90 -O (test for excess errors)
I think the clue comes from that last failure:
Excess errors:
/vol/gcc/src/hg/master/local/gcc/testsuite/gfortran.dg/gomp/interop-5.f90:4:8:
Fatal Error: Cannot open module file 'omp_lib.mod' for reading at (1): No such
file or directory
compilation terminated.
gfortran.dg/gomp/interop-5.f90 -O : dump file does not exist
Every other instance of use omp_lib in gfortran.dg has a comment similar to
!use omp_lib ! N/A in gcc/testsuite
(e.g. gfortran.dg/gomp/depobj-3.f90)
