/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | proc_ptr_31.f90 | 8 procedure(real),pointer :: p
|
H A D | proc_ptr_comp_27.f90 | 3 ! PR 46201: [F03] ICE on procedure pointer component call 8 procedure(character), nopass, pointer :: ppc
|
H A D | proc_ptr_comp_3.f90 | 19 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 D | proc_decl_11.f90 | 11 ! "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 D | proc_ptr_9.f90 | 8 procedure() :: p 14 procedure(), intent(in) :: x
|
H A D | proc_ptr_38.f90 | 8 procedure(), pointer :: i 9 i => foo ! { dg-error "is invalid as proc-target in procedure pointer assignment" } 14 procedure(), pointer :: j
|
H A D | proc_ptr_39.f90 | 8 procedure(), pointer, private :: procPtr => null() 12 procedure(), pointer, private :: procPtr => null()
|
H A D | proc_decl_29.f90 | 3 ! 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 D | recursive_interface_2.f90 | 10 procedure(foo) :: arg 13 procedure(foo2) :: arg 14 procedure(foo2), pointer :: r 17 procedure(baz) :: arg 20 procedure(bar) :: arg
|
H A D | module_procedure_double_colon_1.f90 | 9 module procedure::bar 10 module procedure ::bar_none 11 module procedure:: none_bar
|
H A D | module_procedure_double_colon_2.f90 | 10 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 D | proc_ptr_comp_35.f90 | 8 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 D | proc_decl_1.f90 | 16 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 D | proc_decl_6.f90 | 11 procedure(x) :: y 13 module procedure y ! { dg-error "not a module procedure" }
|
H A D | proc_ptr_comp_5.f90 | 17 procedure(as), pointer, nopass :: s 18 procedure(af), pointer, nopass :: f
|
H A D | typebound_generic_15.f90 | 11 procedure :: Add1 ! { dg-error "must be a module procedure" } 12 procedure :: Add2 ! { dg-error "must be a module procedure" }
|
H A D | dummy_procedure_11.f90 | 3 ! 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 D | interface_abstract_3.f90 | 3 ! module procedure not allowed in abstract interface 6 module procedure p ! { dg-error "must be in a generic module interface" }
|
H A D | module_procedure_2.f90 | 6 module procedure sin ! { dg-error "cannot be a MODULE PROCEDURE" }
|
H A D | proc_decl_25.f90 | 15 procedure(f) :: f1 18 procedure f1
|
H A D | proc_ptr_12.f90 | 7 procedure(integer),pointer :: p 12 procedure(integer),pointer :: bar
|
H A D | proc_ptr_comp_30.f90 | 9 procedure(type(t)), pointer, nopass :: ppc 14 print *,x ! { dg-error "cannot have procedure pointer components" }
|
H A D | generic_11.f90 | 16 module procedure bar
|
H A D | module_procedure_double_colon_3.f90 | 11 procedure :: bar ! { dg-error "Fortran 2008: double colon in MODULE PROCEDURE statement" }
|
H A D | module_procedure_double_colon_4.f90 | 11 procedure :: bar ! "::" is valid since Fortran 2008
|