1! { dg-do compile } 2! PR fortran/45495 3! 4! Code originally submitted by Philip Mason <pmason at ricardo dot com> 5! 6function jack(aa) 7 character(len=*), intent(in) :: aa 8 optional :: aa 9 character(len=len(aa)+1) :: jack ! { dg-error "cannot be OPTIONAL" } 10 jack = '' 11end function jack 12 13function diane(aa) 14 character(len=*), intent(out) :: aa 15 character(len=len(aa)+1) :: diane 16 diane = '012345678901' 17 aa = 'abcdefghijklmn' 18end function diane 19