Home
last modified time | relevance | path

Searched refs:cut4 (Results 1 – 25 of 47) sorted by relevance

12

/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/
H A Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dwidechar_6.f907 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 Dswitch.f27 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 Dbug69358 bcut cut4 ch3 ccomp3
59 ##########checkshape -top cut4
60 checkshape -top cut4
62 compound int2 cut3 cut4 result
H A Dbug693_165 bopcut cut4
67 checkshape -top cut4
69 compound int2 cut3 cut4 result
/dports/biology/emboss/EMBOSS-6.6.0/emboss/
H A Drebaseextract.c450 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()

12