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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_2.f90] - Blame information for rev 414

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


! { dg-do run }
! Character functions with a result clause were broken
program testch
  if (ch().ne."hello     ") call abort()
contains
  function ch () result(str)
    character(len = 10)  :: str
    str ="hello"
  end function ch
end program testch

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! Character functions with a result clause were broken`
3			`program testch`
4			`if (ch().ne."hello ") call abort()`
5			`contains`
6			`function ch () result(str)`
7			`character(len = 10) :: str`
8			`str ="hello"`
9			`end function ch`
10			`end program testch`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_2.f90] - Blame information for rev 414