This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[PATCH, testsuite]: Add testcase for PR fortran/33500
- From: Uros Bizjak <ubizjak at gmail dot com>
- To: GCC Patches <gcc-patches at gcc dot gnu dot org>
- Cc: Fortran List <fortran at gcc dot gnu dot org>
- Date: Wed, 10 Oct 2007 22:57:28 +0200
- Subject: [PATCH, testsuite]: Add testcase for PR fortran/33500
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:message-id:date:from:user-agent:mime-version:to:cc:subject:content-type:content-transfer-encoding; bh=y+5cKBNCRFQt2tfHGlCtePRJxFYYHQLvCA3G9DBVdHY=; b=uBRVikXBJo8wuUffpknR4n5iTX2g2NWAFKbIbUZ4khIiDaaMj2ATJikq8J70wSXPKtdaEhUVKLu2gCU4qFOWV1K8Z0R792L/8FH0ZJoG9T7Y0OFecY8/Uw4lyDJs1KREmIYXBPVboTkjfG4ZiwIicY+eK5C0u4v57yaCVEwrupI=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:message-id:date:from:user-agent:mime-version:to:cc:subject:content-type:content-transfer-encoding; b=jJ+NTqP7hawtgVWbW9b36JnnpbkIlLWu4FBSNYT9koJnpIIjfhi+NFiborIdd/QiZ06oNz2Q7nlSl0fwojgrSEETB+nBhh/0eo+2vVFMwoWRcRjvov9WJ/JqhWsPwChlHljIrN/tIsCCVUNcHB5oT09ngSMI7k9nHSqEzQYSd/Y=
Hello!
The testcase from PR fortran/33500 does not fail with trunk revision:
129215.
Attached patch adds fortran torture testcase from PR audit trail. Patch
was checked by running fortran testsuite on x86_64-pc-linux-gnu.
OK for mainline?
2007-10-10 Uros Bizjak <ubizjak@gmail.com>
PR fortran/33500
* gfortran.fortran-torture/compile/pr33500.f90: New testcase.
Uros.
Index: gfortran.fortran-torture/compile/pr33500.f90
===================================================================
--- gfortran.fortran-torture/compile/pr33500.f90 (revision 0)
+++ gfortran.fortran-torture/compile/pr33500.f90 (revision 0)
@@ -0,0 +1,6 @@
+subroutine whatever()
+logical(kind=1) :: l1, l2, l3
+if ((l1 .and. l2) .neqv. l3) then
+ l1 = .true.
+endif
+end