https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80722
Bug ID: 80722
Summary: gfortran can not compile omp clause with default(none)
when there is a type bind method
Product: gcc
Version: 5.3.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: yundantianchang at hotmail dot com
Target Milestone: ---
Created attachment 41346
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=41346&action=edit
this is the tow file x.f90 and bug.f90
gcc version is 5.3.1, but the version 6.3.1 and 7.1.0 is the same
Using built-in specs.
COLLECT_GCC=gcc
COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/5/lto-wrapper
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu 5.3.1-14ubuntu2'
--with-bugurl=file:///usr/share/doc/gcc-5/README.Bugs
--enable-languages=c,ada,c++,java,go,d,fortran,objc,obj-c++ --prefix=/usr
--program-suffix=-5 --enable-shared --enable-linker-build-id
--libexecdir=/usr/lib --without-included-gettext --enable-threads=posix
--libdir=/usr/lib --enable-nls --with-sysroot=/ --enable-clocale=gnu
--enable-libstdcxx-debug --enable-libstdcxx-time=yes
--with-default-libstdcxx-abi=new --enable-gnu-unique-object
--disable-vtable-verify --enable-libmpx --enable-plugin --with-system-zlib
--disable-browser-plugin --enable-java-awt=gtk --enable-gtk-cairo
--with-java-home=/usr/lib/jvm/java-1.5.0-gcj-5-amd64/jre --enable-java-home
--with-jvm-root-dir=/usr/lib/jvm/java-1.5.0-gcj-5-amd64
--with-jvm-jar-dir=/usr/lib/jvm-exports/java-1.5.0-gcj-5-amd64
--with-arch-directory=amd64 --with-ecj-jar=/usr/share/java/eclipse-ecj.jar
--enable-objc-gc --enable-multiarch --disable-werror --with-arch-32=i686
--with-abi=m64 --with-multilib-list=m32,m64,mx32 --enable-multilib
--with-tune=generic --enable-checking=release --build=x86_64-linux-gnu
--host=x86_64-linux-gnu --target=x86_64-linux-gnu
Thread model: posix
gcc version 5.3.1 20160413 (Ubuntu 5.3.1-14ubuntu2)
I compile it with "gfortran -fopenmp x.f90 bug.f90", error happens, it shows:
write(*,*) ss%show()
^
Error: ‘__vtab_module_x_Type_x’ not specified in enclosing parallel
bug.f90:7:0:
!$omp parallel do private(i) shared(ss) num_threads(2) default(none)
^
Error: enclosing parallel
this is the case one.
but if i change omp clause default(none) to default(shared), it is ok of
course(this is case two)
and if i merge the two file into one file then use the same options to compile,
even though it is default(none), it is ok too.(this is case three)
