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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Character length mismatch" }
 
! PR fortran/37746
! Test bounds-checking for string length of dummy arguments.
 
SUBROUTINE test (str)
  IMPLICIT NONE
  CHARACTER(len=5) :: str
END SUBROUTINE test
 
PROGRAM main
  IMPLICIT NONE
  CALL test ('abc') ! { dg-warning "Character length of actual argument shorter" }
END PROGRAM main
 
! { dg-output "shorter than the declared one for dummy argument 'str' \\(3/5\\)" }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fbounds-check" }`
3			`! { dg-shouldfail "Character length mismatch" }`
4
5			`! PR fortran/37746`
6			`! Test bounds-checking for string length of dummy arguments.`
7
8			`SUBROUTINE test (str)`
9			`IMPLICIT NONE`
10			`CHARACTER(len=5) :: str`
11			`END SUBROUTINE test`
12
13			`PROGRAM main`
14			`IMPLICIT NONE`
15			`CALL test ('abc') ! { dg-warning "Character length of actual argument shorter" }`
16			`END PROGRAM main`
17
18			`! { dg-output "shorter than the declared one for dummy argument 'str' \\(3/5\\)" }`

Browse

Tools

Subversion Repositories openrisc

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