/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") call abort 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") call abort 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") call abort 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") call abort 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") call abort [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") call abort 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") call abort 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") call abort 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") call abort 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") call abort [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") call abort 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") call abort 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") call abort 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") call abort 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") call abort [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") call abort 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") call abort 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") call abort 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") call abort 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") call abort [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") STOP 7 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") STOP 8 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") STOP 9 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") STOP 10 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") STOP 11 [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/testsuite/gfortran.dg/ |
H A D | widechar_6.f90 | 7 module procedure cut4 19 function cut4 (s) function 21 character(kind=4,len=max(0,len(s)-3)) :: cut4 local 23 cut4 = s(4:) 24 end function cut4 38 if (len (cut4(4_"")) /= 0 .or. cut4(4_"") /= 4_"") call abort 39 if (len (cut4(4_"1")) /= 0 .or. cut4(4_"") /= 4_"") call abort 40 if (len (cut4(4_"12")) /= 0 .or. cut4(4_"") /= 4_"") call abort 41 if (len (cut4(4_"123")) /= 0 .or. cut4(4_"") /= 4_"") call abort 42 if (len (cut4(4_"1234")) /= 1 .or. cut4(4_"4") /= 4_"") call abort [all …]
|
/dports/science/tinker/tinker/source/ |
H A D | switch.f | 27 real*8 cut3,cut4,cut5 local 111 cut4 = cut2 * cut2 114 cut7 = cut3 * cut4 133 & - 35.0d0*cut4*off3 + 35.0d0*cut3*off4 141 f3 = (39.0d0*cut4+212.0d0*cut3*off-450.0d0*cut2*off2
|
/dports/cad/opencascade/opencascade-7.6.0/tests/bugs/modalg_4/ |
H A D | bug693 | 58 bcut cut4 ch3 ccomp3 59 ##########checkshape -top cut4 60 checkshape -top cut4 62 compound int2 cut3 cut4 result
|
H A D | bug693_1 | 65 bopcut cut4 67 checkshape -top cut4 69 compound int2 cut3 cut4 result
|
/dports/biology/emboss/EMBOSS-6.6.0/emboss/ |
H A D | rebaseextract.c | 450 ajint cut4; in rebaseextract_process_pattern() local 487 sscanf(q+1,"%d/%d",&cut3,&cut4); in rebaseextract_process_pattern() 508 cut4 += len; in rebaseextract_process_pattern() 511 if(cut1==cut2 && cut3==cut4) in rebaseextract_process_pattern() 521 cut3 = cut4 = 0; in rebaseextract_process_pattern() 618 ajStrGetPtr(ppat),len,ncuts,blunt,cut1,cut2,cut3,cut4); in rebaseextract_process_pattern()
|