[Bug fortran/52469] [4.6/4.7/4.8 Regression] Defining function pointer interface

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2012-03-04
                 CC|                            |burnus at gcc dot gnu.org
            Summary|Defining function pointer   |[4.6/4.7/4.8 Regression]
                   |interface                   |Defining function pointer
                   |                            |interface
     Ever Confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-03-04 22:37:59 UTC ---
The ICE appeared between 

gcc version 4.6.0 20100723 (experimental) [trunk revision 162456] (GCC) (OK)

and

gcc version 4.6.0 20100901 (experimental) [branch fortran-dev revision 163718]
(GCC)

[macbook] f90/bug% /opt/gcc/gcc4.6d/bin/gfortran pr52469.f90
pr52469.f90: In function 'test_proc_ptr':
pr52469.f90:74:0: internal compiler error: in aggregate_value_p, at
function.c:1971

The error with the current trunk is

pr52469.f90: In function 'test_proc_ptr':
pr52469.f90:74:0: internal compiler error: tree check: expected function_type
or method_type, have pointer_type in gimplify_call_expr, at gimplify.c:2437

and with revision 184852 configured with --enable-checking=release

pr52469.f90: In function 'test_proc_ptr':
pr52469.f90:60:0: error: non-function in gimple call
D.1883 = D.1882 (&C.1873);

pr52469.f90:60: confused by earlier errors, bailing out