Searched refs:procedure (Results 1 - 25 of 405) sorted by relevance

1234567891011>>

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_31.f908 procedure(real),pointer :: p
H A Dproc_ptr_comp_27.f903 ! PR 46201: [F03] ICE on procedure pointer component call
8 procedure(character), nopass, pointer :: ppc
H A Dproc_ptr_comp_3.f9019 procedure(), pointer, nopass :: ptr1
20 procedure(real), pointer, nopass :: ptr2
21 procedure(sub), pointer, nopass :: ptr3
22 procedure(), pointer, nopass ptr4 ! { dg-error "Expected '::'" }
23 procedure(), pointer, nopass, pointer :: ptr5 ! { dg-error "Duplicate" }
24 procedure, pointer, nopass :: ptr6 ! { dg-error "Syntax error" }
25 procedure(), nopass :: ptr8 ! { dg-error "POINTER attribute is required" }
26 procedure(pp), pointer, nopass :: ptr9 ! { dg-error "declared in a later PROCEDURE statement" }
31 procedure(aaargh), pointer, nopass :: ptr10 ! { dg-error "must be explicit" }
35 procedure(), pointe
[all...]
H A Dproc_decl_11.f9011 ! "C1212 (R1215) [...] If name is declared by a procedure-declaration-stmt
16 procedure() :: q2
17 procedure() :: q3
18 procedure() :: q5
19 procedure(sub) :: p4
20 procedure(p4) :: p6
32 procedure(p4) :: p6 ! { dg-error "declared in a later PROCEDURE statement" }
33 procedure(sub) :: p4
H A Dproc_ptr_9.f908 procedure() :: p
14 procedure(), intent(in) :: x
H A Dproc_ptr_38.f908 procedure(), pointer :: i
9 i => foo ! { dg-error "is invalid as proc-target in procedure pointer assignment" }
14 procedure(), pointer :: j
H A Dproc_ptr_39.f908 procedure(), pointer, private :: procPtr => null()
12 procedure(), pointer, private :: procPtr => null()
H A Dproc_decl_29.f903 ! PR 42418: PROCEDURE: Rejects interface which is both specific and generic procedure
8 procedure gen
11 procedure(gen) :: p1
12 procedure(gen2) :: p2 ! { dg-error "may not be generic" }
13 procedure(sf) :: p3 ! { dg-error "may not be a statement function" }
14 procedure(char) :: p4
17 procedure char
H A Drecursive_interface_2.f9010 procedure(foo) :: arg
13 procedure(foo2) :: arg
14 procedure(foo2), pointer :: r
17 procedure(baz) :: arg
20 procedure(bar) :: arg
H A Dmodule_procedure_double_colon_1.f909 module procedure::bar
10 module procedure ::bar_none
11 module procedure:: none_bar
H A Dmodule_procedure_double_colon_2.f9010 module procedure::bar ! { dg-error "double colon" }
11 module procedure ::bar_none ! { dg-error "double colon" }
12 module procedure:: none_bar ! { dg-error "double colon" }
H A Dproc_ptr_comp_35.f908 procedure gen
12 procedure(gen),pointer,nopass :: p1
13 procedure(gen2),pointer,nopass :: p2 ! { dg-error "may not be generic" }
17 procedure(sf),pointer,nopass :: p3 ! { dg-error "may not be a statement function" }
21 procedure(char),pointer,nopass :: p4 ! { dg-error "Intrinsic procedure" }
25 procedure gen
H A Dproc_decl_1.f9016 procedure(), public, private :: a ! { dg-error "was already specified" }
17 procedure(sub),bind(C) :: a2 ! { dg-error "requires an interface with BIND.C." }
18 procedure(sub2), public, bind(c, name="myEF") :: e, f ! { dg-error "Multiple identifiers provided with single NAME= specifier" }
19 procedure(sub2), bind(C, name=""), pointer :: g ! { dg-error "may not have POINTER attribute" }
22 procedure(),public:: h ! { dg-error "was already specified" }
27 procedure() :: abc2
44 procedure(z) :: bar ! { dg-error "may not be generic" }
46 procedure(), allocatable:: b ! { dg-error "PROCEDURE attribute conflicts with ALLOCATABLE attribute" }
47 procedure(), save:: c ! { dg-error "PROCEDURE attribute conflicts with SAVE attribute" }
49 procedure(dco
[all...]
H A Dproc_decl_6.f9011 procedure(x) :: y
13 module procedure y ! { dg-error "not a module procedure" }
H A Dproc_ptr_comp_5.f9017 procedure(as), pointer, nopass :: s
18 procedure(af), pointer, nopass :: f
H A Dtypebound_generic_15.f9011 procedure :: Add1 ! { dg-error "must be a module procedure" }
12 procedure :: Add2 ! { dg-error "must be a module procedure" }
H A Ddummy_procedure_11.f903 ! PR 60507: Passing function call into procedure argument not caught
8 procedure(g), pointer, nopass :: ppc => g
11 procedure(g), pointer :: pp => g
15 print *, f(g()) ! { dg-error "Expected a procedure for argument" }
17 print *, f(pp()) ! { dg-error "Expected a procedure for argument" }
19 print *, f(x%ppc()) ! { dg-error "Expected a procedure for argument" }
24 procedure(g) :: fun
H A Dinterface_abstract_3.f903 ! module procedure not allowed in abstract interface
6 module procedure p ! { dg-error "must be in a generic module interface" }
H A Dmodule_procedure_2.f906 module procedure sin ! { dg-error "cannot be a MODULE PROCEDURE" }
H A Dproc_decl_25.f9015 procedure(f) :: f1
18 procedure f1
H A Dproc_ptr_12.f907 procedure(integer),pointer :: p
12 procedure(integer),pointer :: bar
H A Dproc_ptr_comp_30.f909 procedure(type(t)), pointer, nopass :: ppc
14 print *,x ! { dg-error "cannot have procedure pointer components" }
H A Dgeneric_11.f9016 module procedure bar
H A Dmodule_procedure_double_colon_3.f9011 procedure :: bar ! { dg-error "Fortran 2008: double colon in MODULE PROCEDURE statement" }
H A Dmodule_procedure_double_colon_4.f9011 procedure :: bar ! "::" is valid since Fortran 2008

Completed in 63 milliseconds

1234567891011>>