/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
H A D | cgmain.cpp | 851 int bbih, ebih, bopc, eopc; in processOutlinedByConcur() local 878 eopc = ILI_OPC(eili); in processOutlinedByConcur() 879 if (eopc == IL_ECONCUR) { in processOutlinedByConcur() 905 if ((eopc == IL_BCONCUR) && (bbih != ebih)) in processOutlinedByConcur()
|
/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/ |
H A D | sh01.f90 | 21 integer, dimension(N) :: eopc,eopv,cpc,cpv variable 36 eopc = -10 ! fill in with garbage 46 eopc=eoshift(src, 1) ! eoshift, positive, constant 55 print 10, 'eopc',eopc 65 call check(eopc,eopcres,N)
|
H A D | sh24.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(src, 2, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh31.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,1,dim=2), 1, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh33.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,j,dim=2), 1, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh35.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,1,dim=1), 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh36.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,-1,dim=1), 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh41.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,1,9,dim=1), 1, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh43.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,j,9,dim=2), 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh02.f90 | 21 integer, dimension(N) :: eopc,eopv,cpc,cpv variable 36 eopc = -10 ! fill in with garbage 46 eopc=eoshift(src, 2) ! eoshift, positive, constant 55 print 10, 'eopc',eopc 65 call check(eopc,eopcres,N)
|
H A D | sh34.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,k,dim=2), 1, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh37.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,j,dim=1), 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh38.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src, k,dim=1), 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh42.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,1,9,dim=2), 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh11.f90 | 21 integer, dimension(N) :: eopc,eopv,cpc,cpv variable 35 eopc = -10 ! fill in with garbage 45 eopc=eoshift(eoshift(src,1,9), 1) ! eoshift, positive, constant 54 print 10, 'eopc',eopc 64 call check(eopc,eopcres,N)
|
H A D | sh12.f90 | 21 integer, dimension(N) :: eopc,eopv,cpc,cpv variable 35 eopc = -10 ! fill in with garbage 45 eopc=eoshift(eoshift(src,-1,9), 1) ! eoshift, positive, constant 54 print 10, 'eopc',eopc 64 call check(eopc,eopcres,N)
|
H A D | sh21.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(src, 1, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh22.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(src, 2, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh23.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(src, 1, dim=2) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|
H A D | sh32.f90 | 21 integer, dimension(N,M) :: eopc,eopv,cpc,cpv variable 83 eopc = -10 ! fill in with garbage 93 eopc=eoshift(eoshift(src,-1,dim=2), 1, dim=1) ! eoshift, positive, constant 103 print 10, 'eopc',eopc 114 call check(eopc,eopcres,N*M)
|