/llvm-project/flang/module/ |
H A D | mma.f90 | 368 procedure(func_vpi0vi##VKIND) :: VP_I0_VI(NAME, VKIND); 370 procedure(func_vpi0vu##VKIND) :: VP_I0_VU(NAME, VKIND); 372 procedure(func_vpi0vr##VKIND) :: VP_I0_VR(NAME, VKIND); 381 …procedure :: VP_I0_VI(vec_lxvp,1), VP_I0_VI(vec_lxvp,2), VP_I0_VI(vec_lxvp,4), VP_I0_VI(vec_lxvp,8) 382 …procedure :: VP_I0_VU(vec_lxvp,1), VP_I0_VU(vec_lxvp,2), VP_I0_VU(vec_lxvp,4), VP_I0_VU(vec_lxvp,8) 383 procedure :: VP_I0_VR(vec_lxvp,4), VP_I0_VR(vec_lxvp,8) 384 procedure :: VP_I0_VP(vec_lxvp) 405 procedure(sub_vpi0vi##VKIND) :: VP_I0_VI(NAME, VKIND); 407 procedure(sub_vpi0vu##VKIND) :: VP_I0_VU(NAME, VKIND); 409 procedure(sub_vpi0vr##VKIND) :: VP_I0_VR(NAME, VKIND); [all …]
|
H A D | __ppc_intrinsics.f90 | 636 procedure(func_r4r4r4r4) :: __ppc_fmadd_r4 637 procedure(func_r8r8r8r8) :: __ppc_fmadd_r8 639 procedure :: __ppc_fmadd_r4 640 procedure :: __ppc_fmadd_r8 644 procedure(func_r4r4r4r4) :: __ppc_fmsub_r4 645 procedure(func_r8r8r8r8) :: __ppc_fmsub_r8 647 procedure :: __ppc_fmsub_r4 648 procedure :: __ppc_fmsub_r8 652 procedure(func_r4r4r4r4) :: __ppc_fnmadd_r4 653 procedure(func_r8r8r8r8) :: __ppc_fnmadd_r8 [all …]
|
/llvm-project/flang/test/Semantics/ |
H A D | resolve53.f90 | 8 procedure s1 9 procedure s2 10 procedure s3 11 procedure s4 183 procedure s1 184 procedure s2 187 procedure s1 188 procedure s3 192 procedure(real), pointer :: x 195 procedure(intege [all...] |
H A D | symbol15.f90 | 25 procedure(iface), pointer :: pp1 29 procedure(iface), pointer :: pp2 => null() 33 procedure(iface), pointer :: pp3 => ext1 37 procedure(iface), pointer :: pp4 => ext2 41 procedure(iface), pointer :: pp5 => ext3 45 procedure(iface), pointer :: pp6 => modproc1 61 procedure(iface), nopass, pointer :: ppc1 65 procedure(iface), nopass, pointer :: ppc2 => null() 69 procedure(iface), nopass, pointer :: ppc3 => ext1 73 procedure(iface), nopass, pointer :: ppc4 => ext2 [all …]
|
H A D | bind-c16.f90 | 12 procedure(s1) :: p1a 13 procedure(s1), bind(c) :: p1b 14 procedure(s1), bind(c,name='P1c') :: p1c 15 procedure(s2) :: p2a 16 procedure(s2), bind(c) :: p2b 17 procedure(s2), bind(c,name='P2c') :: p2c 18 procedure(s3) :: p3a 19 procedure(s3), bind(c) :: p3b 20 procedure(s3), bind(c,name='P3c') :: p3c 48 procedure(s1) :: p1a [all …]
|
H A D | resolve32.f90 | 30 procedure, nopass :: a => missing 31 procedure, nopass :: b => s, s2 33 procedure, nopass :: c 35 procedure, nopass, deferred :: d => s 39 procedure, nopass :: s3 40 procedure, nopass :: foo 42 procedure, nopass :: absfoo 44 procedure, nopass :: bar 46 procedure, nopass :: i 48 procedure, nopass :: b => s4 [all …]
|
H A D | bindings01.f90 | 18 procedure(s1), pass :: ab1 20 procedure(s1), deferred, non_overridable :: ab3 22 procedure, deferred, non_overridable :: ab4 => s1 26 procedure, non_overridable, nopass :: no1 => s1 33 procedure, nopass :: no1 => s1 37 procedure(s4), deferred :: am1 44 procedure :: am1 => s7 68 procedure(s2), deferred :: bb1 70 procedure, deferred :: bb2 => s2 75 procedure :: component => s3 [all …]
|
H A D | resolve114.f90 | 38 procedure(sin), pointer :: p1 => sin 40 procedure(iabs), pointer :: p2 => iabs 41 procedure(ext1), pointer :: p3 => ext1 42 procedure(ext2), pointer :: p4 => ext2 50 procedure(iface1), pointer :: p1 => x1 52 procedure(iface2), pointer :: p2 => x2 53 procedure(iface3), pointer :: p3 => x3 54 procedure(iface4), pointer :: p4 => x4 64 procedure(sin), pointer :: p1 => sin 66 procedure(iabs), pointer :: p2 => iabs [all …]
|
H A D | resolve52.f90 | 18 procedure(real), pointer, nopass :: a 20 procedure(real), pointer :: b 27 procedure(s1), pointer :: a 29 procedure(s1), pointer, pass :: b 32 procedure :: p1 => s1 34 procedure, pass :: p2 => s1 44 procedure(s), pointer, pass(y) :: a 47 procedure, pass(z) :: p => s 63 procedure(s1), pointer :: a 65 procedure(s2), pointer, pass(x) :: b [all …]
|
H A D | resolve17.f90 | 22 procedure s2 25 procedure s 36 procedure s_real 44 procedure s_int 60 procedure s_real 68 procedure s_int 84 procedure sa 92 procedure sb 106 procedure s1 114 procedure s2 [all …]
|
H A D | resolve20.f90 | 10 procedure() :: a 11 procedure(integer) :: b 12 procedure(foo) :: c 13 procedure(bar) :: d 15 procedure(missing) :: e 17 procedure(b) :: f 18 procedure(c) :: g 21 procedure(h) :: i 22 procedure(forward) :: j 25 procedure(bad1) :: k1 [all …]
|
H A D | resolve102.f90 | 10 procedure(sub) :: p 14 procedure(p) :: p2 21 procedure(foo), pointer :: r 26 procedure(sub) :: p 31 procedure(p) :: p2 44 procedure(sub1) :: arg 58 procedure(sub) :: arg 70 procedure(p1) p2 71 procedure(p2) p1 77 procedure(p1) p2 [all …]
|
H A D | resolve79.f90 | 16 procedure(publicProc), public, pointer, public :: publicField 18 procedure(privateProc), private, pointer, private :: privateField 20 procedure(nopassProc), nopass, pointer, nopass :: noPassField 22 procedure(passProc), pass, pointer, pass :: passField 24 procedure(passNopassProc), pass, pointer, nopass :: passNopassField 26 procedure(pointerProc), pointer, public, pointer :: pointerField 28 procedure(publicProc), public :: nonpointerField 30 procedure :: noPassProc 31 procedure :: passProc 32 procedure :: passNopassProc [all …]
|
H A D | modfile07.f90 | 35 procedure :: s1 36 procedure :: s2 37 procedure :: s3 38 procedure :: s4 41 procedure :: s1 42 procedure :: s2 43 procedure :: s3 44 procedure :: s4 164 procedure foo 273 procedure::foo [all …]
|
H A D | argshape01.f90 | 48 procedure(s1) :: s 51 procedure(s2) :: s 54 procedure(s3) :: s 57 procedure(s4) :: s 60 procedure(s5) :: s 63 procedure(s6) :: s 66 procedure(s7) :: s 69 procedure(s8) :: s 72 procedure(s9) :: s 78 procedure(s1), pointer :: ps1 [all …]
|
H A D | resolve38.f90 | 6 procedure, nopass :: s1 25 procedure, nopass :: s3 39 procedure, nopass :: s4 40 procedure, nopass :: s5 52 procedure, nopass :: s3 53 procedure, nopass :: s4 54 procedure, nopass :: s5 73 procedure, nopass :: s1 74 procedure, nopass :: s2 80 procedure, nopass :: p1 => s1 [all …]
|
H A D | resolve82.f90 | 5 ! R1512 procedure-declaration-stmt -> 18 procedure(procFunc), public, pointer, public :: proc1 20 procedure(procFunc), private, pointer, private :: proc2 22 !ERROR: An interface name with the BIND attribute must appear if the BIND attribute appears in a procedure declaration 23 procedure(procFunc), bind(c), pointer, bind(c) :: proc3 25 procedure(procFunc), protected, pointer, protected :: proc4 43 procedure(procFunc), intent(in), pointer, intent(in) :: arg4 45 procedure(procFunc), intent(out), pointer, intent(out) :: arg5 47 procedure(procFunc), intent(inout), pointer, intent(inout) :: arg6 49 procedure(procFun [all...] |
H A D | resolve36.f90 | 24 module procedure missing1 30 module procedure t module 51 module procedure missing1 module 58 module procedure t module 72 module procedure sub module 73 end procedure 87 module procedure a 88 end procedure 92 module procedure b 93 end procedure
|
H A D | call09.f90 | 20 procedure(realfunc), pointer, intent(in) :: p 23 procedure(realfunc), pointer :: p 26 procedure(real), pointer :: p 29 procedure(realfunc) :: p 33 procedure(realfunc), intent(in) :: p 36 procedure(realfunc), pointer, intent(in out) :: p 41 procedure(cos) :: p ! ok 50 procedure(elemfunc) :: p 54 procedure(realfunc), pointer :: procptr 58 procedure(intfunc), pointer :: intprocptr [all …]
|
H A D | separate-mp02.f90 | 4 ! with the corresponding separate module procedure interface body: 101 procedure(real) :: y 124 !ERROR: Dummy argument 'x' is a procedure; the corresponding argument in the interface body is not 125 procedure(real) :: x 177 module procedure s7 185 procedure(real), pointer, intent(in) :: x 186 procedure(real), pointer, intent(out) :: y 187 procedure(real), pointer, intent(out) :: z 190 procedure(real), pointer :: x 191 procedure(rea [all...] |
H A D | assign03.f90 | 5 procedure(),pointer,save :: p 15 procedure(s), pointer, nopass :: p 32 !ERROR: In assignment to object pointer 'q', the target 's' is a procedure designator 43 procedure(s), pointer :: f 48 ! C1030 and 10.2.2.4 - procedure names as target of procedure pointer 50 procedure(s) :: s_dummy 51 procedure(s), pointer :: p, q 52 procedure(), pointer :: r 71 procedure(f_impure [all...] |
/llvm-project/flang/test/Lower/HLFIR/ |
H A D | procedure-pointer.f90 | 22 procedure(char_func), pointer :: q 31 procedure(real_func), pointer :: p1 38 procedure(real_func), pointer :: p2 => null() 42 procedure(real_func), pointer :: p3 => real_func 46 procedure(), pointer :: p4 53 procedure(real), pointer :: p5 60 procedure(char_func), pointer :: p6 67 procedure(char_func), pointer :: p7 => char_func 76 procedure(real_func), pointer :: p1 92 procedure(real_func), pointer :: p1 [all …]
|
H A D | bindc-proc-interface.f90 | 16 procedure(iface_bindc) :: foo_iface_bindc 17 procedure(iface_explicit_name) :: foo_iface_explicit_name 18 procedure(iface_nobinding) :: foo_iface_nobinding 20 procedure(iface_bindc), bind(c) :: extra_bindc_iface_bindc 21 procedure(iface_explicit_name), bind(c) :: extra_bindc_iface_explicit_name 22 procedure(iface_nobinding), bind(c) :: extra_bindc_iface_nobinding 24 procedure(iface_bindc), bind(c, name="bar_iface_bindc_2") :: bar_iface_bindc 25 …procedure(iface_explicit_name), bind(c,name="bar_iface_explicit_name_2") :: bar_iface_explicit_n… 26 procedure(iface_nobinding), bind(c, name="bar_iface_nobinding_2") :: bar_iface_nobinding 28 procedure(iface_bindc), bind(c, name="") :: nobinding_iface_bindc [all …]
|
/llvm-project/flang/test/Fir/ |
H A D | dispatch.f90 | 14 procedure :: aproc 15 procedure :: display1 => display1_p1 16 procedure :: display2 => display2_p1 17 procedure :: get_value => get_value_p1 18 procedure :: proc_with_values => proc_p1 19 procedure, nopass :: proc_nopass => proc_nopass_p1 20 procedure, pass(this) :: proc_pass => proc_pass_p1 21 procedure, nopass :: z_proc_nopass_bindc => proc_nopass_bindc_p1 27 procedure :: display1 => display1_p2 28 procedure [all...] |
/llvm-project/flang/test/Lower/Intrinsics/ |
H A D | associated-proc-pointers.f90 | 5 procedure(), pointer :: p 6 procedure() :: dummy_proc 25 procedure(), pointer :: p, p_target 46 procedure(), pointer :: p 47 procedure(), optional :: dummy_proc 66 procedure(), pointer :: p 91 procedure(char_func), pointer :: p 92 procedure(char_func) :: dummy_proc 127 procedure(func), pointer :: pp
|