compiler error (C0000005) on !$omp master

[jimdempseyatthecove]

parallel_studio_xe_2019_cluster_edition_setup.exe
parallel_studio_xe_2019_update2_cluster_edition_setup.exe
Microsoft Visual Studio Professional 2019
Version 16.6.5
VisualStudio.16.Release/16.6.5+30320.27
Microsoft .NET Framework
Version 4.8.03752

OS Name Microsoft Windows 10 Pro
Version 10.0.18363 Build 18363
Other OS Description Not Available
OS Manufacturer Microsoft Corporation
System Name I72600K
System Manufacturer Supermicro
System Model PIO-5038K-I-CI005
System Type x64-based PC
System SKU To be filled by O.E.M.
Processor Intel(R) Xeon Phi(TM) CPU 7210 @ 1.30GHz, 1300 Mhz, 64 Core(s), 256 Logical Processor(s)
BIOS Version/Date American Megatrends Inc. 1.0, 6/21/2016
SMBIOS Version 3.0
Embedded Controller Version 255.255
BIOS Mode Legacy
BaseBoard Manufacturer Supermicro
BaseBoard Product K1SPE
BaseBoard Version 1.01

This fails to compile:

! TestOpenMP.f90
program TestOpenMP
use omp_lib
implicit none
integer(8) :: i
!$omp parallel
!$omp master
print *,"nThreads",omp_get_num_threads()
!$omp end master
do i=1,huge(i)
if(omp_get_thread_num() == -1) then
print *,"boink"
endif
end do
!$omp end parallel
end program TestOpenMP

1>TestOpenMP.f90
1>fortcom: Fatal: There has been an internal compiler error (C0000005).
1>compilation aborted for C:\test\TestOpenMP\TestOpenMP\TestOpenMP.f90 (code 1)
1>
1>Build log written to "file://C:\test\TestOpenMP\TestOpenMP\x64\Debug\BuildLog.htm"
1>TestOpenMP - 1 error(s), 0 warning(s)
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========

Commenting out !$omp master succeeds

! TestOpenMP.f90
program TestOpenMP
use omp_lib
implicit none
integer(8) :: i
!$omp parallel
!*** !$omp master
print *,"nThreads",omp_get_num_threads()
!*** !$omp end master
do i=1,huge(i)
if(omp_get_thread_num() == -1) then
print *,"boink"
endif
end do
!$omp end parallel
end program TestOpenMP

1>TestOpenMP.f90
1>Linking...
1>Embedding manifest...
1>
1>Build log written to "file://C:\test\TestOpenMP\TestOpenMP\x64\Debug\BuildLog.htm"
1>TestOpenMP - 0 error(s), 0 warning(s)
========== Build: 1 succeeded, 0 failed, 0 up-to-date, 0 skipped ==========

Note, I haven't tried update 4

Webmaster * the </> source format is missing Fortran and Plain Text

Jim Dempsey

[Steve_Lionel]

I already communicated to the forum admins about the missing code formats. They didn't notice because they were visible to admins - just not to ordinary users! I have no idea on a timeframe for a fix.

Your program still fails in the 2021 beta. Please report this using the Online Service Center, as getting it picked up from here seems to be spotty.

[jimdempseyatthecove]

Ticket: 04886778

Installing update 4 now. Well see if bug remains.

Your 2021 beta does not give me much hope.

Jim

[Steve_Lionel]

The Fortran beta hasn't been updated in many months - one can hope that the release version (soon) may be better here. I know they already had the code freeze for it.

[jimdempseyatthecove]

Intel PS 2020 XE Update 4 Cluster Edition has the same issue with !$omp master (in the sample app in post #1).

I haven't tried #pragma omp master in Intel C++ (will check that later).

For now

!*** bug !$omp master
if(omp_get_thread_num() == 0) then
...
end if
!*** bug !$omp end master

Jim Dempsey