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

Subversion Repositories openrisc

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

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


! { dg-do run }
 
! PR fortran/35846
! Alternate test that also produced an ICE because of a missing length.
 
PROGRAM test
  IMPLICIT NONE
  CHARACTER(LEN=2) :: x
 
  x = 'a'
  CALL sub ( (/ TRIM(x), 'a' /) // 'c')
END PROGRAM
 
SUBROUTINE sub(str)
  IMPLICIT NONE
  CHARACTER(LEN=*) :: str(2)
  WRITE (*,*) str
 
  IF (str(1) /= 'ac' .OR. str(2) /= 'ac') THEN
    CALL abort ()
  END IF
END SUBROUTINE sub

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2
3			`! PR fortran/35846`
4			`! Alternate test that also produced an ICE because of a missing length.`
5
6			`PROGRAM test`
7			`IMPLICIT NONE`
8			`CHARACTER(LEN=2) :: x`
9
10			`x = 'a'`
11			`CALL sub ( (/ TRIM(x), 'a' /) // 'c')`
12			`END PROGRAM`
13
14			`SUBROUTINE sub(str)`
15			`IMPLICIT NONE`
16			`CHARACTER(LEN=*) :: str(2)`
17			`WRITE (,) str`
18
19			`IF (str(1) /= 'ac' .OR. str(2) /= 'ac') THEN`
20			`CALL abort ()`
21			`END IF`
22			`END SUBROUTINE sub`

Browse

Tools

Subversion Repositories openrisc

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