Subversion Repositories openrisc

! { 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