From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/testsuite/gfortran.dg/pr41011.f | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr41011.f (limited to 'gcc/testsuite/gfortran.dg/pr41011.f') diff --git a/gcc/testsuite/gfortran.dg/pr41011.f b/gcc/testsuite/gfortran.dg/pr41011.f new file mode 100644 index 000000000..4ad4a8fc5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr41011.f @@ -0,0 +1,23 @@ +! { dg-do compile } +! { dg-options "-O3 -fwhole-file" } + CALL UVSET(NX,NY,NZ,HVAR,ZET,NP,DZ,DKM,UM,VM,UG,VG,TM,DCDX, ! { dg-warning "Rank mismatch" } + *ITY,ISH,NSMT,F) + CALL DCTDX(NX,NY,NX1,NFILT,C(MLAG),DCDX(MLAG),HELP,HELPA, + * HELP,HELPA,FY,FYC,SAVEY) + END + SUBROUTINE PADEC(DKS,DKDS,HVAR,WM,WG,FN,NS,AN,BN,CN,IT) + COMPLEX*16 WM(*),WG(*),FN(*),AN(*),BN(*),CN(*) + BN(J)=F4+AS+GAMMA*F2 + CN(J)=F4-AS+GAMMA*F2 + FN(J)=(AS+F4-GAMMA*F2)*H2+(F4-AS-GAMMA*F2)*H0+ + * H1*(F3-GAMMA/3.D0)+GAMMA*WG(J)-CONST + END + SUBROUTINE UVSET(NX,NY,NZ,HVAR,ZET,NP,DZ,DKM,UM,VM,UG,VG,TM, + *WORK,ITY,IH,NSMT,F) + DIMENSION HVAR(*),ZET(*),TM(*),DKM(*),UM(*),VM(*),UG(*),VG(*), + *WORK(*) + IF(IH.EQ.0) THEN + CALL PADEC(DKM,VM,HVAR,WORK(LWM),WORK(LWG), ! { dg-warning "Rank mismatch" } + * WORK(LF),NZ,WORK(LA),WORK(LB),WORK(LC),ITY) + ENDIF + END -- cgit v1.2.3