[Patch, fortran] F2008 - implement pointer function assignment

[Dominique d'Humières]

Dear Paul,

I have tested your patch (with the two patches in pr67429) and got the following regressions:

FAIL: gfortran.dg/bind_c_usage_12.f03   -O   (test for errors, line 33)
FAIL: gfortran.dg/bind_c_usage_12.f03   -O   (test for errors, line 51)
FAIL: gfortran.dg/bind_c_usage_12.f03   -O   (test for errors, line 61)
FAIL: gfortran.dg/bind_c_usage_12.f03   -O  (test for excess errors)
FAIL: gfortran.dg/derived_function_interface_1.f90   -O   (test for errors, line 41)
FAIL: gfortran.dg/derived_function_interface_1.f90   -O  (test for excess errors)
FAIL: gfortran.dg/error_recovery_3.f90   -O   (test for errors, line 9)
FAIL: gfortran.dg/error_recovery_3.f90   -O  (test for excess errors)
FAIL: gfortran.dg/func_decl_1.f90   -O   (test for errors, line 16)
FAIL: gfortran.dg/func_decl_1.f90   -O   (test for errors, line 22)
FAIL: gfortran.dg/func_decl_1.f90   -O  (test for excess errors)
FAIL: gfortran.dg/func_decl_4.f90   -O   (test for errors, line 20)
FAIL: gfortran.dg/func_decl_4.f90   -O  (test for excess errors)
FAIL: gfortran.dg/proc_assign_1.f90   -O   (test for errors, line 68)
FAIL: gfortran.dg/proc_assign_1.f90   -O   (test for errors, line 73)
FAIL: gfortran.dg/proc_assign_1.f90   -O  (internal compiler error)
FAIL: gfortran.dg/proc_assign_1.f90   -O  (test for excess errors)
FAIL: gfortran.dg/typebound_proc_23.f90   -O0  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_23.f90   -O0  (test for excess errors)
UNRESOLVED: gfortran.dg/typebound_proc_23.f90   -O0  compilation failed to produce executable
FAIL: gfortran.dg/typebound_proc_23.f90   -O1  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_23.f90   -O1  (test for excess errors)
UNRESOLVED: gfortran.dg/typebound_proc_23.f90   -O1  compilation failed to produce executable
FAIL: gfortran.dg/typebound_proc_23.f90   -O2  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_23.f90   -O2  (test for excess errors)
UNRESOLVED: gfortran.dg/typebound_proc_23.f90   -O2  compilation failed to produce executable
FAIL: gfortran.dg/typebound_proc_23.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_23.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  (test for excess errors)
UNRESOLVED: gfortran.dg/typebound_proc_23.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  compilation failed to produce executable
FAIL: gfortran.dg/typebound_proc_23.f90   -O3 -g  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_23.f90   -O3 -g  (test for excess errors)
UNRESOLVED: gfortran.dg/typebound_proc_23.f90   -O3 -g  compilation failed to produce executable
FAIL: gfortran.dg/typebound_proc_23.f90   -Os  (internal compiler error)
FAIL: gfortran.dg/typebound_proc_23.f90   -Os  (test for excess errors)
UNRESOLVED: gfortran.dg/typebound_proc_23.f90   -Os  compilation failed to produce executable
FAIL: gfortran.dg/use_7.f90   -O   (test for errors, line 42)
FAIL: gfortran.dg/use_7.f90   -O   (test for errors, line 43)
FAIL: gfortran.dg/use_7.f90   -O   (test for errors, line 44)
FAIL: gfortran.dg/use_7.f90   -O   (test for errors, line 45)
FAIL: gfortran.dg/use_7.f90   -O   (test for errors, line 46)
FAIL: gfortran.dg/use_7.f90   -O  (test for excess errors)

The failures for typebound_proc_23.f90 and proc_assign_1.f90 are ICEs

f951: internal compiler error: Segmentation fault: 11

The failures for gfortran.dg/bind_c_usage_12.f03 are

/opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_12.f03:33:25:

   integer(c_int) function int2() bind(c, name="jjj") ! { dg-error "No binding name is allowed" }
                         1
Error: Syntax error in data declaration at (1)

/opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_12.f03:51:25:

   integer(c_int) function int2() bind(c, name="kkk") ! { dg-error "No binding name is allowed" }
                         1
Error: Syntax error in data declaration at (1)

/opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_12.f03:61:25:

   integer(c_int) function int2() bind(c, name="mmm") ! { dg-error "No binding name is allowed" }
                         1
Error: Syntax error in data declaration at (1)

I also see

/opt/gcc/work/gcc/testsuite/gfortran.dg/func_decl_1.f90:16:0: Error: Unclassifiable statement at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/func_decl_1.f90:22:0: Error: Unclassifiable statement at (1)

/opt/gcc/work/gcc/testsuite/gfortran.dg/use_7.f90:42:0: Error: Unclassifiable statement at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/use_7.f90:43:0: Error: Unclassifiable statement at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/use_7.f90:44:0: Error: Unclassifiable statement at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/use_7.f90:45:0: Error: Unclassifiable statement at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/use_7.f90:46:0: Error: Unclassifiable statement at (1)

Cheers,

Dominique