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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr25603.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
C { dg-do run }
2
C
3
C PR rtl-optimization/25603
4
C Check if reload handles REG_INC notes correctly.
5
      PROGRAM BAR
6
      IMPLICIT REAL (A-H, O-Z)
7
      DIMENSION WORK(250)
8
 
9
      XSTART = 201.0
10
 
11
      CALL BAR1(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,
12
     *XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
13
     *DX,DY,DZ,WORK,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP)
14
      STOP
15
      END
16
 
17
      SUBROUTINE BAR2(NX,NY,NZ,NT,NTIME,NWINDX,ISH,NSMT,NFILT,
18
     * XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
19
     * DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LFINAL,
20
     * C,STEPC,POTT,STEPT,UX,STEPU,VY,STEPV,WZ,PRES,STEPP,Q,DKZM,DKZH,
21
     * ELEV,ELEVX,ELEVY,Z0,HMIX,STEPH,TAVR,OBUK,USTR,TSTR,VDEP,DEP,
22
     * ZET,HVAR,UM,VM,UG,VG,TM,DKM,DCDX,DCDY,AN,BN,CN,HELP,HELPA)
23
      IMPLICIT REAL (A-H, O-Z)
24
 
25
      DIMENSION  C(*),STEPC(*),POTT(*),STEPT(*),UX(*),STEPU(*),
26
     * VY(*),STEPV(*),WZ(*),PRES(*),STEPP(*),Q(*),DKZM(*),DKZH(*),
27
     * ELEV(*),ELEVX(*),ELEVY(*),Z0(*),HMIX(*),STEPH(*),TAVR(*),
28
     * OBUK(*),USTR(*),TSTR(*),VDEP(*), DEP(*),ZET(*),HVAR(*),
29
     * UM(*),VM(*),UG(*),VG(*),TM(*),DKM(*), DCDX(*),DCDY(*),
30
     * AN(*),BN(*),CN(*),HELP(*),HELPA(*)
31
C
32
 
33
      RETURN
34
      END
35
 
36
      SUBROUTINE BAR1(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,
37
     *XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
38
     *DX,DY,DZ,WORK,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP)
39
 
40
      IMPLICIT REAL (A-H, O-Z)
41
      DIMENSION  WORK(*)
42
 
43
      if (XSTART .NE. 201.0) then
44
       call abort
45
      endif
46
 
47
      LHELPA = 1
48
      LHELP = 1
49
      LCN = 1
50
      LBN = 1
51
      LAN = 1
52
      LDCDY = 1
53
      LDCDX = 1
54
      LKM = 1
55
      LTM = 1
56
      LVG = 1
57
      LUG = 1
58
      LVM = 1
59
      LUM = 1
60
      LHVAR = 1
61
      LZET = 1
62
      LDEP = 1
63
      LVDEP = 1
64
      LTSTR = 1
65
      LUSTR = 1
66
      LOBUK = 1
67
      LTAVR = 1
68
      LSTEPH = 1
69
      LHMIX = 1
70
      LZ0 = 1
71
      LELEVY = 1
72
      LELEVX = 1
73
      LELEV = 1
74
      LDKZH = 1
75
      LDKZM = 1
76
      LQ = 1
77
      LPSTEP = 1
78
      LPI = 1
79
      LWZ = 1
80
      LVSTEP = 1
81
      LVY = 1
82
      LUSTEP = 1
83
      LUX = 1
84
      LTSTEP = 1
85
      LPOT = 1
86
      LCSTEP = 1
87
      LC = 1
88
 
89
      CALL BAR2(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,XSTART,
90
     * YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
91
     * DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LAST,
92
     * WORK(LC),WORK(LCSTEP),WORK(LPOT),WORK(LTSTEP),WORK(LUX),
93
     * WORK(LUSTEP),WORK(LVY),WORK(LVSTEP),WORK(LWZ),WORK(LPI),
94
     * WORK(LPSTEP),WORK(LQ),WORK(LDKZM),WORK(LDKZH),WORK(LELEV),
95
     * WORK(LELEVX),WORK(LELEVY),WORK(LZ0),WORK(LHMIX),WORK(LSTEPH),
96
     * WORK(LTAVR),WORK(LOBUK),WORK(LUSTR),WORK(LTSTR),WORK(LVDEP),
97
     * WORK(LDEP),WORK(LZET),WORK(LHVAR),WORK(LUM),WORK(LVM),WORK(LUG),
98
     * WORK(LVG),WORK(LTM),WORK(LKM),WORK(LDCDX),WORK(LDCDY),WORK(LAN),
99
     * WORK(LBN),WORK(LCN),WORK(LHELP),WORK(LHELPA))
100
 
101
      RETURN
102
      END

powered by: WebSVN 2.1.0

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