Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR29422, in which function results

! were not tested for suitability in IO statements.

!

! Contributed by Dominique d'Humieres  

!

Type drv

 Integer :: i

 Integer, allocatable :: arr(:)

End type drv

  print *, fun1 () ! { dg-error "cannot have ALLOCATABLE" }

contains

  Function fun1 ()

    Type(drv) :: fun1

    fun1%i = 10

  end function fun1

end