Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR29284 in which an ICE would occur in converting

! the call to a suboutine with an assumed character length, optional

! dummy that is not present.

!

! Contributed by Rakuen Himawari  

!

      MODULE foo

      CONTAINS

        SUBROUTINE sub1(a)

          CHARACTER (LEN=*), OPTIONAL :: a

          WRITE(*,*) 'foo bar'

        END SUBROUTINE sub1

      SUBROUTINE sub2

        CALL sub1()

      END SUBROUTINE sub2

     END MODULE foo

! { dg-final { cleanup-modules "foo" } }