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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR fortran/41872
!
! Character functions returning allocatable scalars
!
program test
  implicit none
  if (func () /= 'abc') call abort ()
contains
  function func() result (str)
    character(len=3), allocatable :: str
    if (allocated (str)) call abort ()
    allocate (str)
    str = 'abc'
  end function func
end program test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/41872`
4			`!`
5			`! Character functions returning allocatable scalars`
6			`!`
7			`program test`
8			`implicit none`
9			`if (func () /= 'abc') call abort ()`
10			`contains`
11			`function func() result (str)`
12			`character(len=3), allocatable :: str`
13			`if (allocated (str)) call abort ()`
14			`allocate (str)`
15			`str = 'abc'`
16			`end function func`
17			`end program test`

Browse

Tools

Subversion Repositories openrisc

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