diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-07 20:19:32 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-07 20:19:32 +0000 |
| commit | 49b608325b1b1503a1c8e887b527ab703be8adcc (patch) | |
| tree | 6a5963eeee80894aedb5397a3bc035a22564dc55 /gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90 | |
| parent | 33e9f8c6fd811eb4d5ea3ece9387d4214877aba3 (diff) | |
| download | gcc-49b608325b1b1503a1c8e887b527ab703be8adcc.tar.gz | |
* intrinsics/string_intrinsics.c (string_verify): Fix off by one
error.
testsuite/
* gfortran.dg/intrinsic_verify_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88704 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90 b/gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90 new file mode 100644 index 00000000000..c894043de08 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90 @@ -0,0 +1,12 @@ +! { dg-do run } +! Test the verify intrinsic. We were ignoring the last character. +program prog + character(len=1) :: c1 + character(len=4) :: c4 + c1 = "E" + if (verify(c1, "1") .ne. 1) call abort + c4 = "ABBA" + if (verify(c4, "A") .ne. 2) call abort + if (verify(c4, "A", back = .true.) .ne. 3) call abort + if (verify(c4, "AB") .ne. 0) call abort +end program |