gcc/testsuite/gfortran.dg/pr41011.f

   1 ! { dg-do compile }
   2 ! { dg-options "-O3" }
   3       CALL UVSET(NX,NY,NZ,HVAR,ZET,NP,DZ,DKM,UM,VM,UG,VG,TM,DCDX, ! { dg-warning "Rank mismatch" }
   4      *ITY,ISH,NSMT,F)
   5          CALL DCTDX(NX,NY,NX1,NFILT,C(MLAG),DCDX(MLAG),HELP,HELPA,
   6      *   HELP,HELPA,FY,FYC,SAVEY)
   7       END
   8       SUBROUTINE PADEC(DKS,DKDS,HVAR,WM,WG,FN,NS,AN,BN,CN,IT)
   9       COMPLEX*16 WM(*),WG(*),FN(*),AN(*),BN(*),CN(*)
  10          BN(J)=F4+AS+GAMMA*F2
  11          CN(J)=F4-AS+GAMMA*F2
  12          FN(J)=(AS+F4-GAMMA*F2)*H2+(F4-AS-GAMMA*F2)*H0+
  13      *   H1*(F3-GAMMA/3.D0)+GAMMA*WG(J)-CONST
  14       END
  15       SUBROUTINE UVSET(NX,NY,NZ,HVAR,ZET,NP,DZ,DKM,UM,VM,UG,VG,TM,
  16      *WORK,ITY,IH,NSMT,F)
  17       DIMENSION HVAR(*),ZET(*),TM(*),DKM(*),UM(*),VM(*),UG(*),VG(*),
  18      *WORK(*)
  19       IF(IH.EQ.0) THEN
  20          CALL PADEC(DKM,VM,HVAR,WORK(LWM),WORK(LWG), ! { dg-warning "Rank mismatch" }
  21      *   WORK(LF),NZ,WORK(LA),WORK(LB),WORK(LC),ITY)
  22       ENDIF
  23       END