URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [dummy_optional_arg.f90] - Blame information for rev 700

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/45495`
3			`!`
4			`! Code originally submitted by Philip Mason`
5			`!`
6			`function 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 = ''`
11			`end function jack`
12
13			`function diane(aa)`
14			`character(len=*), intent(out) :: aa`
15			`character(len=len(aa)+1) :: diane`
16			`diane = '012345678901'`
17			`aa = 'abcdefghijklmn'`
18			`end function diane`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [dummy_optional_arg.f90] - Blame information for rev 700