[Bug fortran/52531] New: Compilation fails with polymorphic dummy argument and OpenMP

["kaladhorn at me dot com" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52531

             Bug #: 52531
           Summary: Compilation fails with polymorphic dummy argument and
                    OpenMP
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: kaladhorn@me.com


The following code does not compile:

--
module test_mod
  type, public :: test_type
  end type
contains
  subroutine foo(bar)
    type(test_type) :: bar
!$omp parallel default(none) shared(bar) ! Compiles if one removes
default(none)
    call question(bar)
!$omp end parallel
  end subroutine
  subroutine question(var)
    class(test_type), intent(in) :: var ! Compiles if one replaces class by
type
  end subroutine
end module
--

The error message is:
â__vtab_test_mod_Test_typeâ not specified in enclosing parallel

This was reproduced with gfortran 4.6 (gcc version 4.6.3 (GCC) ) and 4.7 (gcc
version 4.7.0 20120121 (experimental) (GCC) ) on x86_64-unknown-linux-gnu .