gcc/testsuite/gfortran.dg/pr25603.f

   1 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