------- Comment #1 from dick dot hendrickson at gmail dot com 2008-01-15 20:49 ------- Another example in executable code
MODULE s_TESTS IMPLICIT CHARACTER (P) CONTAINS subroutine simple (u,j1) optional :: j1 if (present (j1)) stop end subroutine END MODULE s_TESTS -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34784