[Bug fortran/47745] [OOP] Segfault with CLASS(*) and derived type dummy arguments

[dominiq at lps dot ens.fr]

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

--- Comment #6 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-02-15 
13:57:47 UTC ---
If I did not do any mistake, the patch in comment #5 breaks at least
gfortran.dg/typebound_operator_6.f03:

/opt/gcc/_clean/gcc/testsuite/gfortran.dg/typebound_operator_6.f03:44.13:

      LST = (A%PT .LT. B%PT)
             1
Error: Operands of comparison operator '.lt.' at (1) are CLASS(dat)/CLASS(dat)
/opt/gcc/_clean/gcc/testsuite/gfortran.dg/typebound_operator_6.f03:52.14:

  USE NODE_MOD
              1
Fatal Error: Can't open module file 'node_mod.mod' for reading at (1): No such
file or directory