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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [value_7.f03] - Blame information for rev 774

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


! { dg-do run }
! Test passing character strings by-value.
! PR fortran/32732
program test
  implicit none
  character(len=13) :: chr
  chr =  'Fortran       '
  call sub1(chr)
  if(chr /= 'Fortran       ') call abort()
contains
  subroutine sub1(a)
    character(len=13), VALUE :: a
    a = trim(a)//" rules"
    call sub2(a)
  end subroutine sub1
  subroutine sub2(a)
    character(len=13), VALUE :: a
    print *, a
    if(a /= 'Fortran rules') call abort()
  end subroutine sub2
end program test
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Test passing character strings by-value.`
3			`! PR fortran/32732`
4			`program test`
5			`implicit none`
6			`character(len=13) :: chr`
7			`chr = 'Fortran '`
8			`call sub1(chr)`
9			`if(chr /= 'Fortran ') call abort()`
10			`contains`
11			`subroutine sub1(a)`
12			`character(len=13), VALUE :: a`
13			`a = trim(a)//" rules"`
14			`call sub2(a)`
15			`end subroutine sub1`
16			`subroutine sub2(a)`
17			`character(len=13), VALUE :: a`
18			`print *, a`
19			`if(a /= 'Fortran rules') call abort()`
20			`end subroutine sub2`
21			`end program test`
22

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [value_7.f03] - Blame information for rev 774