From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 35313398E45F; Fri, 19 Feb 2021 20:32:32 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 35313398E45F From: "am41119 at hotmail dot com" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/99171] New: [10 Regression] Optional procedure call inside Open MP parallel loop produces Segmentation Fault Date: Fri, 19 Feb 2021 20:32:31 +0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: new X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 10.2.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: am41119 at hotmail dot com X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Resolution: X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status bug_severity priority component assigned_to reporter target_milestone attachments.created Message-ID: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-BeenThere: gcc-bugs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-bugs mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 19 Feb 2021 20:32:32 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D99171 Bug ID: 99171 Summary: [10 Regression] Optional procedure call inside Open MP parallel loop produces Segmentation Fault Product: gcc Version: 10.2.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: am41119 at hotmail dot com Target Milestone: --- Created attachment 50226 --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=3D50226&action=3Dedit Output of using -save-temps during compilation When calling a passed optional procedure inside an Open MP parallel loop (e= ven with OMP_NUM_THREADS=3D1) the address of the optional procedure is no longe= r set to the actual passed procedure. Because the address of the optional procedu= re is no longer correct we get a Segmentation Fault when calling it. The below program works on GCC9 and below. main.f90: ----------------------------------------------- program gcc10_omp_optional_bug implicit none call function_calling_optionals(print_something) call function_calling_optionals_in_omp(print_something) contains subroutine optional_function_template() implicit none end subroutine subroutine print_something() implicit none print *, "Printing Something" end subroutine print_something subroutine function_calling_optionals(optional_function) implicit none procedure(optional_function_template), optional :: optional_function print *, "When optional function is called without Open MP directiv= e:" if (present(optional_function)) then call optional_function() end if end subroutine function_calling_optionals subroutine function_calling_optionals_in_omp(optional_function) implicit none procedure(optional_function_template), optional :: optional_function print *, "When optional function is called inside Open MP directive= :" !$omp parallel=20 if (present(optional_function)) then call optional_function() end if !$omp end parallel end subroutine function_calling_optionals_in_omp end program gcc10_omp_optional_bug --------------------------------------------- gfortran -v Using built-in specs. COLLECT_GCC=3Dgfortran COLLECT_LTO_WRAPPER=3D/usr/lib/gcc/x86_64-linux-gnu/10/lto-wrapper OFFLOAD_TARGET_NAMES=3Dnvptx-none:amdgcn-amdhsa:hsa OFFLOAD_TARGET_DEFAULT=3D1 Target: x86_64-linux-gnu Configured with: ../src/configure -v --with-pkgversion=3D'Ubuntu 10.2.0-5ubuntu1~20.04' --with-bugurl=3Dfile:///usr/share/doc/gcc-10/README.= Bugs --enable-languages=3Dc,ada,c++,go,brig,d,fortran,objc,obj-c++,m2 --prefix= =3D/usr --with-gcc-major-version-only --program-suffix=3D-10 --program-prefix=3Dx86_64-linux-gnu- --enable-shared --enable-linker-build-= id --libexecdir=3D/usr/lib --without-included-gettext --enable-threads=3Dposix --libdir=3D/usr/lib --enable-nls --enable-clocale=3Dgnu --enable-libstdcxx-= debug --enable-libstdcxx-time=3Dyes --with-default-libstdcxx-abi=3Dnew --enable-gnu-unique-object --disable-vtable-verify --enable-plugin --enable-default-pie --with-system-zlib --enable-libphobos-checking=3Drelea= se --with-target-system-zlib=3Dauto --enable-objc-gc=3Dauto --enable-multiarch --disable-werror --with-arch-32=3Di686 --with-abi=3Dm64 --with-multilib-list=3Dm32,m64,mx32 --enable-multilib --with-tune=3Dgeneric --enable-offload-targets=3Dnvptx-none=3D/build/gcc-10-WJNXnb/gcc-10-10.2.0/= debian/tmp-nvptx/usr,amdgcn-amdhsa=3D/build/gcc-10-WJNXnb/gcc-10-10.2.0/deb= ian/tmp-gcn/usr,hsa --without-cuda-driver --enable-checking=3Drelease --build=3Dx86_64-linux-gnu --host=3Dx86_64-linux-gnu --target=3Dx86_64-linux-gnu Thread model: posix Supported LTO compression algorithms: zlib zstd gcc version 10.2.0 (Ubuntu 10.2.0-5ubuntu1~20.04) Compile Command: gfortran main.f90 -fopenmp -o main Execution output: When optional function is called without Open MP directive: Printing Something When optional function is called inside Open MP directive: Program received signal SIGILL: Illegal instruction. Program received signal SIGILL: Illegal instruction. Program received signal SIGILL: Illegal instruction. Backtrace for this error: Program received signal SIGILL: Illegal instruction. Backtrace for this error: Backtrace for this error: Backtrace for this error: Program received signal SIGILL: Illegal instruction. Backtrace for this error: Program received signal SIGSEGV: Segmentation fault - invalid memory refere= nce. Backtrace for this error: Program received signal SIGILL: Illegal instruction. Backtrace for this error: Program received signal SIGILL: Illegal instruction. Backtrace for this error: #0 0x7f9e60dd1d01 in ??? #0 0x7f9e60dd1d01 in ??? #0 0x7f9e60dd1d01 in ??? #1 0x7f9e60dd0ed5 in ??? #2 0x7f9e60bc320f in ??? #3 0x7f9e5e993e27 in ??? Illegal instruction (core dumped)=