/llvm-project/flang/test/Evaluate/ |
H A D | fold-shift.f90 | 6 integer, parameter :: z40 = 1073741824 7 integer, parameter :: z60 = 1610612736 8 integer, parameter :: z80 = -2147483648_8 9 integer, parameter :: zC0 = -1073741824 10 integer, parameter :: zE0 = -536870912 11 integer, parameter :: zF0 = -268435456 13 integer(1), parameter :: z40_1 = 64_1 14 integer(1), parameter :: z60_1 = 96_1 15 integer(1), parameter :: z80_1 = -128_2 16 integer(1), parameter :: zC0_1 = -64_1 [all …]
|
H A D | fold-popcnt.f90 | 5 logical, parameter :: test_z1 = leadz(0_1) .EQ. 8 6 logical, parameter :: test_o1 = leadz(1_1) .EQ. 7 7 logical, parameter :: test_t1 = leadz(2_1) .EQ. 6 8 logical, parameter :: test_f1 = leadz(15_1) .EQ. 4 9 logical, parameter :: test_b1 = leadz(16_1) .EQ. 3 10 logical, parameter :: test_m11 = leadz(-1_1) .EQ. 0 11 logical, parameter :: test_m12 = leadz(-2_1) .EQ. 0 12 logical, parameter :: test_mb1 = leadz(-120_1) .EQ. 0 14 logical, parameter :: test_z2 = leadz(0_2) .EQ. 16 15 logical, parameter :: test_o2 = leadz(1_2) .EQ. 15 [all …]
|
H A D | folding03.f90 | 5 #define TEST_ISNAN(v) logical, parameter :: test_##v =.NOT.(v.EQ.v) 8 integer(4), parameter :: i4_pmax = 2147483647_4 13 integer(4), parameter :: i4_nmax = -2147483647_4 - 1_4 19 logical, parameter :: test_overflow_unary_minus1 = (-i4_nmax).EQ.i4_nmax 20 logical, parameter :: test_no_overflow_unary_minus1 = (-i4_pmax).EQ.(i4_nmax+1_4) 21 logical, parameter :: test_no_overflow_unary_plus1 = (+i4_pmax).EQ.i4_pmax 22 logical, parameter :: test_no_overflow_unary_plus2 = (+i4_nmax).EQ.i4_nmax 25 logical, parameter :: test_overflow_add1 = (i4_pmax+1_4).EQ.i4_nmax 27 logical, parameter :: test_overflow_add2 = (i4_nmax + (-1_4)).EQ.i4_pmax 29 logical, parameter :: test_overflow_add3 = (i4_pmax + i4_pmax).EQ.(-2_4) [all …]
|
H A D | folding01.f90 | 7 logical, parameter :: test_not1 = .NOT..false. 8 logical, parameter :: test_not2 = .NOT..NOT..true. 10 logical, parameter :: test_parentheses1 = .NOT.(.false.) 11 logical, parameter :: test_parentheses2 = .NOT..NOT.(.true.) 13 logical, parameter :: test_and1 = .true..AND..true. 14 logical, parameter :: test_and2 = .NOT.(.false..AND..true.) 15 logical, parameter :: test_and3 = .NOT.(.false..AND..false.) 16 logical, parameter :: test_and4 = .NOT.(.true..AND..false.) 18 logical, parameter :: test_or1 = .true..OR..true. 19 logical, parameter :: test_or2 = .false..OR..true. [all …]
|
H A D | fold-mask.f90 | 6 logical, parameter :: test_l0 = maskl(0) .EQ. 0 7 logical, parameter :: test_l1 = maskl(1) .EQ. -2147483648_8 8 logical, parameter :: test_l2 = maskl(2) .EQ. -1073741824 9 logical, parameter :: test_lm = maskl(16) .EQ. -65536 10 logical, parameter :: test_le1 = maskl(31) .EQ. -2 11 logical, parameter :: test_le = maskl(32) .EQ. -1 12 logical, parameter :: test_lo = maskl(33) .EQ. -1 14 logical, parameter :: test_l0_1 = maskl(0, 1) .EQ. 0_1 15 logical, parameter :: test_l1_1 = maskl(1, 1) .EQ. -128_2 16 logical, parameter :: test_l2_1 = maskl(2, 1) .EQ. -64_1 [all …]
|
H A D | fold-ieee.f90 | 5 logical, parameter :: test_dt_all = ieee_support_datatype() 6 logical, parameter :: test_dt_4 = ieee_support_datatype(1.) 7 logical, parameter :: test_dt_8 = ieee_support_datatype(1.d0) 8 logical, parameter :: test_de_all = ieee_support_denormal() 9 logical, parameter :: test_de_4 = ieee_support_denormal(1.) 10 logical, parameter :: test_de_8 = ieee_support_denormal(1.d0) 11 logical, parameter :: test_di_all = ieee_support_divide() 12 logical, parameter :: test_di_4 = ieee_support_divide(1.) 13 logical, parameter :: test_di_8 = ieee_support_divide(1.d0) 14 logical, parameter [all...] |
H A D | folding08.f90 | 7 integer, parameter :: lba3(*) = lbound(a3) 8 logical, parameter :: test_lba3 = all(lba3 == [42]) 19 integer, parameter :: lbtadim = lbound(ta,1) 20 logical, parameter :: test_lbtadim = lbtadim == 0 21 integer, parameter :: ubtadim = ubound(ta,1) 22 logical, parameter :: test_ubtadim = ubtadim == 2 23 integer, parameter :: lbta1(*) = lbound(ta) 24 logical, parameter :: test_lbta1 = all(lbta1 == [0]) 25 integer, parameter :: ubta1(*) = ubound(ta) 26 logical, parameter [all...] |
H A D | folding05.f90 | 10 logical, parameter :: test_char1_ok1 = char(0_4, 1).EQ."" 11 logical, parameter :: test_char1_ok2 = char(127_4, 1).EQ."" variable 12 logical, parameter :: test_char1_ok3 = char(97_4, 1).EQ."a" 13 logical, parameter :: test_char1_ok4 = .NOT.char(97_4, 1).EQ."b" 15 logical, parameter :: test_char1_ok5 = char(355_4, 1).EQ."c" 17 logical, parameter :: test_char1_ok6 = char(-61_1, 1).EQ.char(195_4, 1) 19 logical, parameter :: test_char2_ok1 = char(0_4, 2).EQ.2_"" 20 logical, parameter :: test_char2_ok2 = char(127_4, 2).EQ.2_"" 21 logical, parameter :: test_char2_ok3 = char(122_4, 2).EQ.2_"z" 23 logical, parameter :: test_char4_ok1 = char(0, 4).EQ.4_"" [all …]
|
H A D | folding07.f90 | 7 integer, parameter :: & 13 logical, parameter :: test_bit_size_1 = bs1 == 8 14 logical, parameter :: test_bit_size_2 = bs2 == 16 15 logical, parameter :: test_bit_size_4 = bs4 == 32 16 logical, parameter :: test_bit_size_8 = bs8 == 64 17 logical, parameter :: test_bit_size_16 = bs16 == 128 19 real(2), parameter :: & 21 real(3), parameter :: & 23 real(4), parameter :: & 26 real(8), parameter [all...] |
H A D | folding28.f90 | 6 real(8), parameter :: inf8 = z'7ff0000000000000' 7 logical, parameter :: test_inf8 = sqrt(inf8) == inf8 9 real(8), parameter :: h8 = huge(1.0_8), h8z = z'7fefffffffffffff' 10 logical, parameter :: test_h8 = h8 == h8z 11 real(8), parameter :: sqrt_h8 = sqrt(h8), sqrt_h8z = z'5fefffffffffffff' 12 logical, parameter :: test_sqrt_h8 = sqrt_h8 == sqrt_h8z 13 real(8), parameter :: sqr_sqrt_h8 = sqrt_h8 * sqrt_h8, sqr_sqrt_h8z = z'7feffffffffffffe' 14 logical, parameter :: test_sqr_sqrt_h8 = sqr_sqrt_h8 == sqr_sqrt_h8z 16 real(8), parameter :: n08 = z'8000000000000000' 17 real(8), parameter :: sqrt_n08 = sqrt(n08) [all …]
|
H A D | folding20.f90 | 5 integer, parameter :: intmatrix(*,*) = reshape([1, 2, 3, 4, 5, 6], [2, 3]) 6 logical, parameter :: odds(2,3) = mod(intmatrix, 2) == 1 7 …character(*), parameter :: chmatrix(*,*) = reshape(['abc', 'def', 'ghi', 'jkl', 'mno', 'pqr'], [2,… 8 real, parameter :: nan = real(z'7FC00000'), inf = real(z'7F800000') 9 real, parameter :: nans(*) = [nan, nan] 10 real, parameter :: someNan(*) = [nan, 0.] 11 real, parameter :: someInf(*) = [inf, 0.] 13 logical, parameter :: test_allidentity = all([Logical::]) 14 logical, parameter :: test_all = .not. all(odds) 15 logical, parameter :: test_alldim1 = all(.not. all(odds,1)) [all …]
|
H A D | fold-out_of_range.f90 | 7 integer(1), parameter :: i1v(*) = [ -huge(1_1) - 1_1, huge(1_1) ] 8 integer(2), parameter :: i2v(*) = [ -huge(1_2) - 1_2, huge(1_2) ] 9 integer(4), parameter :: i4v(*) = [ -huge(1_4) - 1_4, huge(1_4) ] 10 integer(8), parameter :: i8v(*) = [ -huge(1_8) - 1_8, huge(1_8) ] 11 integer(16), parameter :: i16v(*) = [ -huge(1_16) - 1_16, huge(1_16) ] 14 real(2), parameter :: r2v(*) = [ -huge(1._2), huge(1._2), 1._2/0._2, 0._2/0._2 ] 17 real(3), parameter :: r3v(*) = [ -huge(1._3), huge(1._3), 1._3/0._3, 0._3/0._3 ] 20 real(4), parameter :: r4v(*) = [ -huge(1._4), huge(1._4), 1._4/0._4, 0._4/0._4 ] 23 real(8), parameter :: r8v(*) = [ -huge(1._8), huge(1._8), 1._8/0._8, 0._8/0._8 ] 26 real(10), parameter [all...] |
H A D | folding12.f90 | 17 type(child_type), parameter :: child_const1 = child_type(10, 11) 18 logical, parameter :: test_child1 = child_const1%child_field == 11 19 logical, parameter :: test_parent = child_const1%parent_field == 10 21 type(child_type), parameter :: child_const2 = child_type(12, 13) 22 type(child_type), parameter :: array_var(2) = & 24 logical, parameter :: test_array_child = array_var(2)%child_field == 17 25 logical, parameter :: test_array_parent = array_var(2)%parent_field == 16 30 type(array_type), parameter :: array_var2 = & 32 logical, parameter :: test_array_var = array_var2%real_field(2) == 4.0 34 type(child_type), parameter, dimension(2) :: child_const3 = & [all …]
|
H A D | fold-nearest.f90 | 4 real, parameter :: minSubnormal = 1.e-45 5 logical, parameter :: test_1 = nearest(0., 1.) == minSubnormal 6 logical, parameter :: test_2 = nearest(minSubnormal, -1.) == 0 7 logical, parameter :: test_3 = nearest(1., 1.) == 1.0000001 8 logical, parameter :: test_4 = nearest(1.0000001, -1.) == 1 9 real, parameter :: inf = nearest(huge(1.), 1.) 10 logical, parameter :: test_5 = nearest(inf, 1.) == inf 11 logical, parameter :: test_6 = nearest(-inf, -1.) == -inf 12 logical, parameter :: test_7 = nearest(1.9999999, 1.) == 2. 13 logical, parameter [all...] |
H A D | fold-findloc.f90 | 4 integer, parameter :: ia1(2:6) = [1, 2, 3, 2, 1] 5 integer, parameter :: ia2(2:3,2:4) = reshape([1, 2, 3, 3, 2, 1], shape(ia2)) 6 integer, parameter :: ia3(2,0,2) = 0 ! middle dimension has zero extent 7 real, parameter :: nan = real(z'7FC00000') 8 real, parameter :: nans(*) = [nan, nan] 9 real, parameter :: someNans(*) = [nan, 0.] 11 logical, parameter :: test_fi1a = all(findloc(ia1, 1) == 1) 12 logical, parameter :: test_fi1ar = rank(findloc(ia1, 1)) == 1 13 logical, parameter :: test_fi1ak = kind(findloc(ia1, 1, kind=2)) == 2 14 logical, parameter :: test_fi1ad = findloc(ia1, 1, dim=1) == 1 [all …]
|
H A D | fold-matmul.f90 | 4 integer, parameter :: ia(2,3) = reshape([1, 2, 2, 3, 3, 4], shape(ia)) 5 integer, parameter :: ib(3,2) = reshape([1, 2, 3, 2, 3, 4], shape(ib)) 6 integer, parameter :: ix(*) = [1, 2] 7 integer, parameter :: iy(*) = [1, 2, 3] 8 integer, parameter :: iab(*,*) = matmul(ia, ib) 9 integer, parameter :: ixa(*) = matmul(ix, ia) 10 integer, parameter :: iay(*) = matmul(ia, iy) 11 logical, parameter :: test_iab = all([iab] == [14, 20, 20, 29]) 12 logical, parameter :: test_ixa = all(ixa == [5, 8, 11]) 13 logical, parameter :: test_iay = all(iay == [14, 20]) [all …]
|
H A D | fold-mod.f90 | 4 logical, parameter :: test_mod_i1 = mod(8, 5) == 3 5 logical, parameter :: test_mod_i2 = mod(-8, 5) == -3 6 logical, parameter :: test_mod_i3 = mod(8, -5) == 3 7 logical, parameter :: test_mod_i4 = mod(-8, -5) == -3 9 logical, parameter :: test_mod_r1 = mod(3., 2.) == 1. 10 logical, parameter :: test_mod_r2 = mod(8., 5.) == 3. 11 logical, parameter :: test_mod_r3 = mod(-8., 5.) == -3. 12 logical, parameter :: test_mod_r4 = mod(8., -5.) == 3. 13 logical, parameter :: test_mod_r5 = mod(-8., -5.) == -3. 15 logical, parameter :: test_mod_r10a = mod(huge(0.), tiny(0.)) == 0. [all …]
|
H A D | folding11.f90 | 3 complex, parameter :: z1 = 1. + (2., 3.) 4 logical, parameter :: test_z1 = z1 == (3., 3.) 5 complex, parameter :: z2 = 1 + (2., 3.) 6 logical, parameter :: test_z2 = z2 == (3., 3.) 7 complex, parameter :: z3 = 2. * (3., 4.) 8 logical, parameter :: test_z3 = z3 == (6., 8.) 9 complex, parameter :: z4 = 2 * (3., 4.) 10 logical, parameter :: test_z4 = z4 == (6., 8.) 11 complex, parameter :: z5 = 5. - (3., 4.) 12 logical, parameter :: test_z5 = z5 == (2., -4.) [all …]
|
H A D | fold-transfer.f90 | 5 logical, parameter :: test_r2i_s_1 = transfer(1., 0) == int(z'3f800000') 6 logical, parameter :: test_r2i_v_1 = all(transfer(1., [integer::]) == [int(z'3f800000')]) 7 …logical, parameter :: test_r2i_v_2 = all(transfer([1., 2.], [integer::]) == [int(z'3f800000'), int… 8 …logical, parameter :: test_r2i_vs_1 = all(transfer([1., 2.], [integer::], 1) == [int(z'3f800000')]) 13 logical, parameter :: test_t2i_s_1 = transfer(t(1.), 0) == int(z'3f800000') 14 logical, parameter :: test_t2i_v_1 = all(transfer(t(1.), [integer::]) == [int(z'3f800000')]) 15 …logical, parameter :: test_t2i_v_2 = all(transfer([t(1.), t(2.)], [integer::]) == [int(z'3f800000'… 16 …logical, parameter :: test_t2i_vs_1 = all(transfer([t(1.), t(2.)], [integer::], 1) == [int(z'3f800… 18 type(t), parameter :: t1 = transfer(1., t()) 19 logical, parameter :: test_r2t_s_1 = t1%x == 1. [all …]
|
/llvm-project/clang/test/CXX/temp/temp.decls/temp.variadic/ |
H A D | p5.cpp | 7 // A parameter pack whose name appears within the pattern of a pack 9 // name of a parameter pack is only expanded by the innermost 11 // name one or more parameter packs that are not expanded by a nested 16 …pand_no_packs; // expected-error{{pack expansion does not contain any unexpanded parameter packs}} 17 …xpanded_nested; // expected-error{{pack expansion does not contain any unexpanded parameter packs}} 20 // All of the parameter packs expanded by a pack expansion shall have 26 …Types, OtherTypes>...> type; // expected-error{{pack expansion contains parameter packs 'Types' an… 38 // An appearance of a name of a parameter pack that is not expanded is 41 // Test for unexpanded parameter packs in each of the type nodes. 44 …: public Types, public T // expected-error{{base type contains unexpanded parameter pack 'Types'}} [all …]
|
/llvm-project/clang/test/CXX/temp/temp.res/temp.local/ |
H A D | p6.cpp | 6 … typename T> struct X {}; // expected-error {{declaration of 'T' shadows template parameter}} 9 …mplate<typename T> struct A {}; // expected-error {{declaration of 'T' shadows template parameter}} 12 …template<typename> struct T {}; // expected-error {{declaration of 'T' shadows template parameter}} 15 template<typename> void T(); // expected-error {{declaration of 'T' shadows template parameter}} 18 struct T {}; // expected-error {{declaration of 'T' shadows template parameter}} 21 typedef int T; // expected-error {{declaration of 'T' shadows template parameter}} 24 using T = int; // expected-error {{declaration of 'T' shadows template parameter}} 27 int T; // expected-error {{declaration of 'T' shadows template parameter}} 30 static int T; // expected-error {{declaration of 'T' shadows template parameter}} 33 void T(); // expected-error {{declaration of 'T' shadows template parameter}} [all …]
|
/llvm-project/clang/test/Index/ |
H A D | overriding-ftemplate-comments.cpp | 16 …ters><Parameter><Name>AAA</Name><Index>0</Index><Direction isExplicit="0">in</Direction><Discussio… 21 …ters><Parameter><Name>PPP</Name><Index>0</Index><Direction isExplicit="0">in</Direction><Discussio… 30 …Parameter><Name>AAA</Name><Index>0</Index><Discussion><Para> Aaa</Para></Discussion></Parameter><P… 35 …Parameter><Name>PPP</Name><Index>0</Index><Discussion><Para> Aaa</Para></Discussion></Parameter><P… 46 …Parameter><Name>AAA</Name><Index>0</Index><Discussion><Para> Aaa</Para></Discussion></Parameter><P… 51 …Parameter><Name>PPP</Name><Index>0</Index><Discussion><Para> Aaa</Para></Discussion></Parameter><P… 62 …Parameter><Name>AAA</Name><Index>0</Index><Discussion><Para> Aaa </Para></Discussion></Parameter><… 67 …Parameter><Name>PPP</Name><Index>0</Index><Discussion><Para> Aaa </Para></Discussion></Parameter><… 80 …Parameter><Name>C1</Name><Index>0</Index><Discussion><Para> Ccc 1 </Para></Discussion></Parameter>… 85 …Parameter><Name>CCC1</Name><Index>0</Index><Discussion><Para> Ccc 1 </Para></Discussion></Paramete…
|
/llvm-project/openmp/runtime/src/include/ |
H A D | omp_lib.F90.var | 21 integer, parameter, public :: omp_integer_kind = c_int 22 integer, parameter, public :: omp_logical_kind = 4 23 integer, parameter, public :: omp_real_kind = c_float 24 integer, parameter, public :: kmp_double_kind = c_double 25 integer, parameter, public :: omp_lock_kind = c_intptr_t 26 integer, parameter, public :: omp_nest_lock_kind = c_intptr_t 27 integer, parameter, public :: omp_sched_kind = omp_integer_kind 28 integer, parameter, public :: omp_proc_bind_kind = omp_integer_kind 29 integer, parameter, public :: kmp_pointer_kind = c_intptr_t 30 integer, parameter, publi [all...] |
/llvm-project/flang/test/Semantics/ |
H A D | int-literals.f90 | 8 complex, parameter :: okj1 = 127_1, okz1 = (+127_1, -128_1) 10 complex, parameter :: badj1 = 128_1 12 complex, parameter :: badz1 = (+128_1, 0) 13 complex, parameter :: okj1a = 128_2 14 complex, parameter :: okz1a = (+128_2, 0) 16 complex, parameter :: okj2 = 32767_2, okz2 = (+32767_2, -32768_2) 18 complex, parameter :: badj2 = 32768_2 20 complex, parameter :: badz2 = (+32768_2, 0) 21 complex, parameter :: okj2a = 32768_4 22 complex, parameter :: okz2a = (+32768_4, 0) [all …]
|
/llvm-project/clang/test/CXX/dcl.decl/dcl.meaning/dcl.fct/ |
H A D | p13.cpp | 3 // When it is part of a parameter-declaration-clause, the parameter 4 // pack is a function parameter pack. 11 // [ Note: Otherwise, the parameter-declaration is part of a 12 // template-parameter-list and the parameter pack is a template 13 // parameter pack; see 14.1. -- end note ] 23 // only be used in a parameter-declaration. 24 int (...f2)(int); // expected-error{{only function and template parameters can be parameter packs}} 27 int ...x; // expected-error{{only function and template parameters can be parameter pack in f3() [all...] |