mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
33 lines
638 B
Fortran
33 lines
638 B
Fortran
! { 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 (str)
|
|
IMPLICIT NONE
|
|
CHARACTER(len=5), ALLOCATABLE :: str(:)
|
|
END SUBROUTINE test
|
|
|
|
SUBROUTINE test2 (n)
|
|
IMPLICIT NONE
|
|
INTEGER :: n
|
|
CHARACTER(len=n), ALLOCATABLE :: str(:)
|
|
CALL test (str)
|
|
END SUBROUTINE test2
|
|
|
|
END MODULE m
|
|
|
|
PROGRAM main
|
|
USE m
|
|
IMPLICIT NONE
|
|
CALL test2 (7) ! Too long.
|
|
END PROGRAM main
|
|
|
|
! { dg-output "does not match the declared one for dummy argument 'str' \\(7/5\\)" }
|