Lines Matching defs:el
37 SUBROUTINE finalize_single (el) argument
39 TYPE(mytype) :: el local
42 ELEMENTAL SUBROUTINE finalize_single_2 (el) argument
44 TYPE(mytype), INTENT(IN) :: el local
47 SUBROUTINE finalize_vector (el) argument
49 TYPE(mytype), INTENT(INOUT) :: el(:) local
52 SUBROUTINE finalize_vector_2 (el) argument
54 TYPE(mytype), INTENT(IN) :: el(:) local
57 SUBROUTINE finalize_matrix (el) argument
59 TYPE(mytype) :: el(:, :) local
64 TYPE(mytype) :: el local
73 SUBROUTINE bad_num_args_2 (el, x) argument
75 TYPE(mytype) :: el local
79 SUBROUTINE bad_arg_type (el) ! { dg-error "must be of type 'mytype'" } argument
81 REAL :: el local
84 SUBROUTINE bad_pointer (el) ! { dg-error "must not be a POINTER" } argument
86 TYPE(mytype), POINTER :: el local
89 SUBROUTINE bad_alloc (el) ! { dg-error "must not be ALLOCATABLE" } argument
91 TYPE(mytype), ALLOCATABLE :: el(:) local
94 SUBROUTINE bad_optional (el) ! { dg-error "must not be OPTIONAL" } argument
96 TYPE(mytype), OPTIONAL :: el local
99 SUBROUTINE bad_intent_out (el) ! { dg-error "must not be INTENT\\(OUT\\)" } argument
101 TYPE(mytype), INTENT(OUT) :: el local