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

Subversion Repositories openrisc

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

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


! PR fortran/40206
! { dg-do compile }
! { dg-options "-O2 -Wuninitialized" }
 
function char2type (char)
  character, intent(in) :: char
  integer :: char2type
 
  select case (char)
    case ('E','e')
      char2type=1
    case default
      char2type=-1234
  end select
end function

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR fortran/40206`
2			`! { dg-do compile }`
3			`! { dg-options "-O2 -Wuninitialized" }`
4
5			`function char2type (char)`
6			`character, intent(in) :: char`
7			`integer :: char2type`
8
9			`select case (char)`
10			`case ('E','e')`
11			`char2type=1`
12			`case default`
13			`char2type=-1234`
14			`end select`
15			`end function`

Browse

Tools

Subversion Repositories openrisc

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