URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [optional_assumed_charlen_1.f90] - Rev 581
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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 <rakuen_himawari@yahoo.co.jp>
!
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" } }
Go to most recent revision | Compare with Previous | Blame | View Log