/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | proc_ptr_comp_27.f90 | 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(), pointer,nopass [all...] |
H A D | proc_ptr_comp_5.f90 | 17 procedure(as), pointer, nopass :: s 18 procedure(af), pointer, nopass :: f
|
H A D | proc_ptr_comp_30.f90 | 9 procedure(type(t)), pointer, nopass :: ppc
|
H A D | proc_ptr_comp_10.f90 | 16 procedure(ai), pointer, nopass :: ppc
|
H A D | proc_ptr_comp_38.f90 | 10 procedure(real), pointer, nopass :: f1, f2
|
H A D | altreturn_8.f90 | 13 procedure, nopass :: getRecord
|
H A D | proc_ptr_comp_13.f90 | 12 procedure(foo), pointer, nopass :: ppc 13 procedure(type(t)), pointer, nopass :: ppc2
|
H A D | pointer_init_4.f90 | 32 procedure(f2), pointer, nopass :: ppc => f2
|
H A D | pointer_init_5.f90 | 14 procedure(f2), pointer, nopass :: ppc => f2
|
H A D | proc_ptr_comp_35.f90 | 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" }
|
H A D | typebound_override_1.f90 | 13 procedure, nopass :: a => a1 14 procedure, nopass :: b => b1 15 procedure, nopass :: c => c1 16 procedure, nopass :: d => d1 17 procedure, nopass :: e => e1 22 procedure, nopass :: a => a2 ! { dg-error "Character length mismatch in function result" } 23 procedure, nopass :: b => b2 ! { dg-error "Rank mismatch in function result" } 24 procedure, nopass :: c => c2 ! FIXME: dg-warning "Possible character length mismatch" 25 procedure, nopass :: d => d2 ! valid, check for commutativity (+,*) 26 procedure, nopass [all...] |
H A D | proc_ptr_comp_25.f90 | 17 procedure(name_func), nopass, pointer :: name
|
H A D | proc_ptr_comp_28.f90 | 8 procedure (real), pointer, nopass :: vfunc
|
H A D | proc_ptr_comp_31.f90 | 11 procedure(real), pointer, nopass :: get_special_area
|
H A D | typebound_proc_26.f90 | 13 procedure(gen),deferred,nopass :: p1 14 procedure(gen2),deferred,nopass :: p2 ! { dg-error "may not be generic" } 19 procedure(sf),deferred,nopass :: p3 ! { dg-error "may not be a statement function" } 24 procedure(char),deferred,nopass :: p4 ! { dg-error "Intrinsic procedure" }
|
H A D | dummy_procedure_11.f90 | 8 procedure(g), pointer, nopass :: ppc => g
|
H A D | proc_ptr_comp_39.f90 | 19 procedure(nf), nopass, pointer :: nf => NULL() ! non-pure function 20 procedure(pf), nopass, pointer :: pf => NULL() ! pure function 21 procedure(ns), nopass, pointer :: ns => NULL() ! non-pure subroutine 22 procedure(ps), nopass, pointer :: ps => NULL() ! pure subroutine
|
H A D | typebound_override_3.f90 | 11 procedure, nopass :: name => name_A 25 procedure, nopass :: name => name_B
|
H A D | proc_ptr_comp_20.f90 | 18 procedure(integer), pointer, nopass :: ppc 22 procedure(real), pointer, nopass :: ppc
|
H A D | proc_ptr_comp_26.f90 | 8 procedure (dum_vfunc), pointer, nopass :: p => null()
|
H A D | assignment_4.f90 | 10 procedure(logical), pointer, nopass :: task
|
H A D | spec_expr_6.f90 | 14 procedure(p1_type), nopass, pointer :: p1 => NULL() 16 procedure, nopass :: tbp => p1_type 36 procedure(p1_type), nopass, pointer :: p1 => NULL() 38 procedure, nopass :: tbp => p1_type
|
H A D | typebound_proc_29.f90 | 10 procedure, nopass :: getx
|
H A D | typebound_proc_31.f90 | 13 procedure, nopass :: get_num
|