| ! Contributed by G. Steinmetz |
| associate (var1 => t) ! { dg-error "Derived type 't' cannot be used as a variable" } |
| associate (var2 => f) ! { dg-error "Associating entity 'f' at .1. is a procedure name" } |
| associate (var2a => f) ! { dg-error "Associating entity 'f' at .1. is a procedure name" } |
| integer recursive function f2() result(res) |
| associate (var5 => f2) ! { dg-error "Associating entity 'f2' at .1. is a procedure name" } |
| associate (var6 => f2) ! { dg-error "Associating entity 'f2' at .1. is a procedure name" } |
| associate (var7 => f) ! { dg-error "Associating entity 'f' at .1. is a procedure name" } |
| associate (var8 => f) ! { dg-error "Associating entity 'f' at .1. is a procedure name" } |
| associate (var9 => g) ! { dg-error "Associating entity 'g' at .1. is a procedure name" } |