| ! { dg-do compile } | |
| ! PR fortran/45495 | |
| ! | |
| ! Code originally submitted by Philip Mason <pmason at ricardo dot com> | |
| ! | |
| 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 |