OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [anyallcount_1.f90] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do run }
2 
program main
3 
   character(len=*), parameter :: f='(3L1)'
4 
   character(len=*), parameter :: g='(3I1)'
5 
   real, dimension(3,3) :: a
6 
   logical(kind=1), dimension(3,3) :: m1
7 
   logical(kind=2), dimension(3,3) :: m2
8 
   logical(kind=4), dimension(3,3) :: m4
9 
   logical(kind=8), dimension(3,3) :: m8
10 
   character(len=3) :: res
11 
   data a /-1.0, -2.0, -3.0, 2.0, 1.0, -2.1, 1.0, 2.0, 3.0 /
12 
 
13 
   m1 = a > 0
14 
   m2 = a > 0
15 
   m4 = a > 0
16 
   m8 = a > 0
17 
 
18 
   write (unit=res,fmt=f) any(m1,dim=1)
19 
   if (res /= 'FTT') call abort
20 
   write (unit=res,fmt=f) any(m2,dim=1)
21 
   if (res /= 'FTT') call abort
22 
   write (unit=res,fmt=f) any(m4,dim=1)
23 
   if (res /= 'FTT') call abort
24 
   write (unit=res,fmt=f) any(m8,dim=1)
25 
   if (res /= 'FTT') call abort
26 
   write (unit=res,fmt=f) any(m1,dim=2)
27 
   if (res /= 'TTT') call abort
28 
   write (unit=res,fmt=f) any(m2,dim=2)
29 
   if (res /= 'TTT') call abort
30 
   write (unit=res,fmt=f) any(m4,dim=2)
31 
   if (res /= 'TTT') call abort
32 
   write (unit=res,fmt=f) any(m8,dim=2)
33 
   if (res /= 'TTT') call abort
34 
 
35 
   write (unit=res,fmt=f) all(m1,dim=1)
36 
   if (res /= 'FFT') call abort
37 
   write (unit=res,fmt=f) all(m2,dim=1)
38 
   if (res /= 'FFT') call abort
39 
   write (unit=res,fmt=f) all(m4,dim=1)
40 
   if (res /= 'FFT') call abort
41 
   write (unit=res,fmt=f) all(m8,dim=1)
42 
   if (res /= 'FFT') call abort
43 
 
44 
   write (unit=res,fmt=f) all(m1,dim=2)
45 
   if (res /= 'FFF') call abort
46 
   write (unit=res,fmt=f) all(m2,dim=2)
47 
   if (res /= 'FFF') call abort
48 
   write (unit=res,fmt=f) all(m4,dim=2)
49 
   if (res /= 'FFF') call abort
50 
   write (unit=res,fmt=f) all(m8,dim=2)
51 
   if (res /= 'FFF') call abort
52 
 
53 
   write (unit=res,fmt=g) count(m1,dim=1)
54 
   if (res /= '023') call abort
55 
   write (unit=res,fmt=g) count(m2,dim=1)
56 
   if (res /= '023') call abort
57 
   write (unit=res,fmt=g) count(m4,dim=1)
58 
   if (res /= '023') call abort
59 
   write (unit=res,fmt=g) count(m8,dim=1)
60 
   if (res /= '023') call abort
61 
 
62 
   write (unit=res,fmt=g) count(m1,dim=2)
63 
   if (res /= '221') call abort
64 
   write (unit=res,fmt=g) count(m2,dim=2)
65 
   if (res /= '221') call abort
66 
   write (unit=res,fmt=g) count(m4,dim=2)
67 
   if (res /= '221') call abort
68 
   write (unit=res,fmt=g) count(m8,dim=2)
69 
   if (res /= '221') call abort
70 
 
71 
end program main

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.