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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
 
! PR fortran/49885
! Check that character arrays with non-constant char-length are handled
! correctly.
 
! Contributed by Daniel Kraft ,
! based on original test case and variant by Tobias Burnus in comment 2.
 
PROGRAM main
  IMPLICIT NONE
 
  CALL s (10)
 
CONTAINS
 
  SUBROUTINE s (nb)
    INTEGER :: nb
    CHARACTER(MAX (80, nb)) :: bad_rec(1)
 
    bad_rec(1)(1:2) = 'abc'
    IF (bad_rec(1)(1:2) /= 'ab') CALL abort ()
  END SUBROUTINE s
 
END PROGRAM main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2
3			`! PR fortran/49885`
4			`! Check that character arrays with non-constant char-length are handled`
5			`! correctly.`
6
7			`! Contributed by Daniel Kraft ,`
8			`! based on original test case and variant by Tobias Burnus in comment 2.`
9
10			`PROGRAM main`
11			`IMPLICIT NONE`
12
13			`CALL s (10)`
14
15			`CONTAINS`
16
17			`SUBROUTINE s (nb)`
18			`INTEGER :: nb`
19			`CHARACTER(MAX (80, nb)) :: bad_rec(1)`
20
21			`bad_rec(1)(1:2) = 'abc'`
22			`IF (bad_rec(1)(1:2) /= 'ab') CALL abort ()`
23			`END SUBROUTINE s`
24
25			`END PROGRAM main`

Browse

Tools

Subversion Repositories openrisc

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