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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
! Test fix of PR24705 - ICE on assumed character length
! internal function.
!
character (6) :: c
  c = f1 ()
  if (c .ne. 'abcdef') call abort
contains
  function f1 () ! { dg-error "must not be assumed length" }
    character (*) :: f1
    f1 = 'abcdef'
  end function f1
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Test fix of PR24705 - ICE on assumed character length`
3			`! internal function.`
4			`!`
5			`character (6) :: c`
6			`c = f1 ()`
7			`if (c .ne. 'abcdef') call abort`
8			`contains`
9			`function f1 () ! { dg-error "must not be assumed length" }`
10			`character (*) :: f1`
11			`f1 = 'abcdef'`
12			`end function f1`
13			`end`

Browse

Tools

Subversion Repositories openrisc

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