On Sat, Jun 07, 2014 at 10:11:06AM +0200, Andreas Schwab wrote:
> Jakub Jelinek <[email protected]> writes:
>
> > --- gcc/testsuite/gfortran.dg/gomp/udr6.f90.jj 2014-06-02
> > 10:49:02.674337338 +0200
> > +++ gcc/testsuite/gfortran.dg/gomp/udr6.f90 2014-06-02 15:40:52.664740529
> > +0200
> > @@ -0,0 +1,205 @@
> > +! { dg-do compile }
> > +! { dg-options "-fmax-errors=1000 -fopenmp -ffree-line-length-160" }
> > +
> > +module udr6
> > + type dt
> > + integer :: i
> > + end type
> > +end module udr6
> > +subroutine f1
> > + use udr6, only : dt
> > +!$omp declare reduction (+:integer:omp_out = omp_out + omp_in) ! {
> > dg-error "Redefinition of predefined" }
> > +!$omp declare reduction (+:real(kind=4):omp_out = omp_out + omp_in) ! {
> > dg-error "Redefinition of predefined" }
> > +!$omp declare reduction (+:double precision:omp_out = omp_out + omp_in) !
> > { dg-error "Redefinition of predefined" }
> > +!$omp declare reduction (+:integer(kind=8),integer(kind=1) & ! { dg-error
> > "Redefinition of predefined" }
> > +!$omp & :omp_out = omp_out + omp_in)
> > +!$omp declare reduction (+:complex:omp_out = omp_out + omp_in) ! {
> > dg-error "Redefinition of predefined" }
> > +!$omp declare reduction (+:complex(kind=16):omp_out = omp_out + omp_in) !
> > { dg-error "Redefinition of predefined" }
>
> udr6.f90:17:42: Error: Kind 16 not supported for type COMPLEX at (1)
> udr6.f90:41:42: Error: Kind 16 not supported for type COMPLEX at (1)
> udr6.f90:58:42: Error: Kind 16 not supported for type COMPLEX at (1)
Which target? I thought complex(kind=16) is normal double _Complex, isn't
it? The point is just to test complex(kind=NNN), if you have some other
kind that works everywhere, it can be changed.
Jakub
