| ! { dg-do compile } | |
| ! { dg-prune-output "Obsolescent feature: Alternate-return argument" } | |
| ! PR fortran/99256 - ICE in variable_check | |
| ! Contributed by G.Steimetz | |
| program test | |
| use iso_c_binding | |
| type(c_ptr) :: i | |
| type(c_funptr) :: p | |
| call move_alloc (*1, *2) ! { dg-error "ALTERNATE RETURN" } | |
| call c_f_pointer (i, *1) ! { dg-error "ALTERNATE RETURN" } | |
| call c_f_procpointer (p, *2) ! { dg-error "ALTERNATE RETURN" } | |
| 1 continue | |
| 2 stop | |
| end |