! { dg-do compile } ! PR fortran/45495 ! ! Code originally submitted by Philip Mason ! function jack(aa) character(len=*), intent(in) :: aa optional :: aa character(len=len(aa)+1) :: jack ! { dg-error "cannot be OPTIONAL" } jack = '' end function jack function diane(aa) character(len=*), intent(out) :: aa character(len=len(aa)+1) :: diane diane = '012345678901' aa = 'abcdefghijklmn' end function diane