[Bug fortran/56500] [OOP] "IMPLICIT CLASS(...)" wrongly rejected

[dominiq at lps dot ens.fr]

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

--- Comment #9 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2013-03-18 12:16:59 UTC ---
> Yes. I hope this variant should work better (regtesting now):

It "works better", but still has regressions:

[macbook] f90/bug% gfc /opt/gcc/work/gcc/testsuite/gfortran.dg/proc_ptr_36.f90
/opt/gcc/work/gcc/testsuite/gfortran.dg/proc_ptr_36.f90:26.6:

pp => sub2
      1
Error: Interface mismatch in procedure pointer assignment at (1): 'sub2' is not
a function
/opt/gcc/work/gcc/testsuite/gfortran.dg/proc_ptr_36.f90:29.7:

call s(pp, .true.)
       1
Error: Interface mismatch in dummy procedure 'ss' at (1): 'pp' is not a
subroutine
/opt/gcc/work/gcc/testsuite/gfortran.dg/proc_ptr_36.f90:33.7:

call s(pp, .false.)
       1
Error: Interface mismatch in dummy procedure 'ss' at (1): 'pp' is not a
subroutine