GNU Info

(g77-295.info)No Passing Dummy Assumed-length

---

Next: No Pathological Implied-DO Prev: No Passing External Assumed-length Up: Standard Support

---

Enter node , (file) or (file)node

No Passing Dummy Assumed-length
-------------------------------

   `g77' disallows passing of a dummy procedure as an actual argument
if the procedure's type is declared `CHARACTER*(*)'.

     SUBROUTINE BAR(CFUNC)
     CHARACTER*(*) CFUNC
     EXTERNAL CFUNC
     CALL FOO(CFUNC)
     END

It isn't clear whether the standard considers this conforming.