URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr41011.f] - Blame information for rev 437

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O3 -fwhole-file" }`
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			`COMPLEX16 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-GAMMAF2)H2+(F4-AS-GAMMAF2)H0+`
13			`* H1(F3-GAMMA/3.D0)+GAMMAWG(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`