[Patch, Fortran] Add CO_REDUCE

[Dominique Dhumieres]

> FAIL: gfortran.dg/coarray_collectives_14.f90   -O   (test for errors, line 55)
> ..
> FAIL: gfortran.dg/coarray_collectives_14.f90   -O  (test for excess errors)

I don't know if this related to the missing error, but I see

/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:18.23:

    procedure(), nopass :: ext
                       1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:19.28:

    procedure(valid), nopass :: valid
                            1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:20.26:

    procedure(sub), nopass :: sub
                          1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:21.30:

    procedure(nonpure), nopass :: nonpure
                              1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:22.27:

    procedure(arg1), nopass :: arg1
                           1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:23.27:

    procedure(arg2), nopass :: arg2
                           1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:24.27:

    procedure(elem), nopass :: elem
                           1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:25.28:

    procedure(realo), nopass :: realo
                            1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:26.27:

    procedure(int8), nopass :: int8
                           1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:27.26:

    procedure(arr), nopass :: arr
                          1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:28.26:

    procedure(ptr), nopass :: ptr
                          1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:29.28:

    procedure(alloc), nopass :: alloc
                            1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:30.26:

    procedure(opt), nopass :: opt
                          1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:31.26:

    procedure(val), nopass :: val
                          1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:32.28:

    procedure(async), nopass :: async
                            1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:33.26:

    procedure(tgt), nopass :: tgt
                          1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:34.29:

    procedure(char44), nopass :: char44
                             1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:35.29:

    procedure(char34), nopass :: char34
                             1
Error: POINTER attribute is required for procedure pointer component at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90:52.30:

  call co_reduce(caf, dt%valid) ! OK
                              1
Error: 'valid' at (1) is not a member of the 't' structure

Cheers,

Dominique