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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_strlen_7.f90] - Blame information for rev 551

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.
 
MODULE m
CONTAINS
 
  SUBROUTINE test (opt)
    IMPLICIT NONE
    CHARACTER(len=5), OPTIONAL :: opt
  END SUBROUTINE test
 
END MODULE m
 
PROGRAM main
  USE m
  IMPLICIT NONE
  CALL test ('') ! 0 length, but not absent argument.
END PROGRAM main
 
! { dg-output "shorter than the declared one for dummy argument 'opt' \\(0/5\\)" }
! { dg-final { cleanup-modules "m" } }

Line No.	Rev	Author	Line
1	302	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			`MODULE m`
9			`CONTAINS`
10
11			`SUBROUTINE test (opt)`
12			`IMPLICIT NONE`
13			`CHARACTER(len=5), OPTIONAL :: opt`
14			`END SUBROUTINE test`
15
16			`END MODULE m`
17
18			`PROGRAM main`
19			`USE m`
20			`IMPLICIT NONE`
21			`CALL test ('') ! 0 length, but not absent argument.`
22			`END PROGRAM main`
23
24			`! { dg-output "shorter than the declared one for dummy argument 'opt' \\(0/5\\)" }`
25			`! { dg-final { cleanup-modules "m" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_strlen_7.f90] - Blame information for rev 551