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