[Bug fortran/52622] ICE in gfortran 4.6.3, x86_64

["kargl at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=52622

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |WAITING
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #6 from kargl at gcc dot gnu.org ---
The problem reported here seems to be fixed in 4.9.4,
5.2.1, and 6.0.  No idea when or where it was fixed.

The original testcase gives

%  gfc6 -w -c a3.f90
a3.f90:130:2:

   function passeverywherefcomplex_impl(self, c1, c2, c3, exception) result(   
&
  1
Error: Unclassifiable statement at (1)
a3.f90:103:8:

     if (b1) then
        1
Error: IF clause at (1) requires a scalar LOGICAL expression
a3.f90:99:8:

     if (b) then
        1
Error: IF clause at (1) requires a scalar LOGICAL expression

Adding proper declarations for b and b1, then ends with

% gfc6 -w -c a3.f90
a3.f90:132:2:

   function passeverywherefcomplex_impl(self, c1, c2, c3, exception) result(   
&
  1
Error: Unclassifiable statement at (1)

Adding the missing 'retval) and 'end function', then yields something
that compiles.

Does the problem still exist?