URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [minloc_1.f90] - Rev 749
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }! { dg-add-options ieee }! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }real :: a(3), nan, minf, pinfinteger :: ia(1)real, allocatable :: c(:)logical :: llogical :: l2(3)nan = 0.0minf = 0.0pinf = 0.0nan = 0.0/nanminf = -1.0/minfpinf = 1.0/pinfallocate (c(3))a(:) = nania = minloc (a)if (ia(1).ne.1) call aborta(:) = pinfia = minloc (a)if (ia(1).ne.1) call aborta(1:2) = nania = minloc (a)if (ia(1).ne.3) call aborta(2) = 1.0ia = minloc (a)if (ia(1).ne.2) call aborta(2) = minfia = minloc (a)if (ia(1).ne.2) call abortc(:) = nania = minloc (c)if (ia(1).ne.1) call abortc(:) = pinfia = minloc (c)if (ia(1).ne.1) call abortc(1:2) = nania = minloc (c)if (ia(1).ne.3) call abortc(2) = 1.0ia = minloc (c)if (ia(1).ne.2) call abortc(2) = minfia = minloc (c)if (ia(1).ne.2) call abortl = .false.l2(:) = .false.a(:) = nania = minloc (a, mask = l)if (ia(1).ne.0) call abortia = minloc (a, mask = l2)if (ia(1).ne.0) call aborta(:) = pinfia = minloc (a, mask = l)if (ia(1).ne.0) call abortia = minloc (a, mask = l2)if (ia(1).ne.0) call aborta(1:2) = nania = minloc (a, mask = l)if (ia(1).ne.0) call abortia = minloc (a, mask = l2)if (ia(1).ne.0) call aborta(2) = 1.0ia = minloc (a, mask = l)if (ia(1).ne.0) call abortia = minloc (a, mask = l2)if (ia(1).ne.0) call aborta(2) = minfia = minloc (a, mask = l)if (ia(1).ne.0) call abortia = minloc (a, mask = l2)if (ia(1).ne.0) call abortc(:) = nania = minloc (c, mask = l)if (ia(1).ne.0) call abortia = minloc (c, mask = l2)if (ia(1).ne.0) call abortc(:) = pinfia = minloc (c, mask = l)if (ia(1).ne.0) call abortia = minloc (c, mask = l2)if (ia(1).ne.0) call abortc(1:2) = nania = minloc (c, mask = l)if (ia(1).ne.0) call abortia = minloc (c, mask = l2)if (ia(1).ne.0) call abortc(2) = 1.0ia = minloc (c, mask = l)if (ia(1).ne.0) call abortia = minloc (c, mask = l2)if (ia(1).ne.0) call abortc(2) = minfia = minloc (c, mask = l)if (ia(1).ne.0) call abortia = minloc (c, mask = l2)if (ia(1).ne.0) call abortl = .true.l2(:) = .true.a(:) = nania = minloc (a, mask = l)if (ia(1).ne.1) call abortia = minloc (a, mask = l2)if (ia(1).ne.1) call aborta(:) = pinfia = minloc (a, mask = l)if (ia(1).ne.1) call abortia = minloc (a, mask = l2)if (ia(1).ne.1) call aborta(1:2) = nania = minloc (a, mask = l)if (ia(1).ne.3) call abortia = minloc (a, mask = l2)if (ia(1).ne.3) call aborta(2) = 1.0ia = minloc (a, mask = l)if (ia(1).ne.2) call abortia = minloc (a, mask = l2)if (ia(1).ne.2) call aborta(2) = minfia = minloc (a, mask = l)if (ia(1).ne.2) call abortia = minloc (a, mask = l2)if (ia(1).ne.2) call abortc(:) = nania = minloc (c, mask = l)if (ia(1).ne.1) call abortia = minloc (c, mask = l2)if (ia(1).ne.1) call abortc(:) = pinfia = minloc (c, mask = l)if (ia(1).ne.1) call abortia = minloc (c, mask = l2)if (ia(1).ne.1) call abortc(1:2) = nania = minloc (c, mask = l)if (ia(1).ne.3) call abortia = minloc (c, mask = l2)if (ia(1).ne.3) call abortc(2) = 1.0ia = minloc (c, mask = l)if (ia(1).ne.2) call abortia = minloc (c, mask = l2)if (ia(1).ne.2) call abortc(2) = minfia = minloc (c, mask = l)if (ia(1).ne.2) call abortia = minloc (c, mask = l2)if (ia(1).ne.2) call abortdeallocate (c)allocate (c(-2:-3))ia = minloc (c)if (ia(1).ne.0) call abortend
Go to most recent revision | Compare with Previous | Blame | View Log