From 25bd9e4227796ca0c4d3ccd7bbfbd471f1b12075 Mon Sep 17 00:00:00 2001
From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 19 Feb 2005 19:16:09 +0000
Subject: 	* check.c (gfc_check_achar): New function 	* intrinsic.h:
 Prototype it. 	* intrinsic.c (add_function): Use it.

	* gfortran.dg/achar_1.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95288 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/gfortran.dg/achar_1.f90 | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/achar_1.f90

(limited to 'gcc/testsuite/gfortran.dg/achar_1.f90')

diff --git a/gcc/testsuite/gfortran.dg/achar_1.f90 b/gcc/testsuite/gfortran.dg/achar_1.f90
new file mode 100644
index 00000000000..1fdb7747210
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/achar_1.f90
@@ -0,0 +1,8 @@
+! { dg-do run }
+! achar() should work with all supported integer kinds.
+program  bug6
+  integer(1) :: i = 65
+  character a
+  a = achar(i)
+  if (a /= 'A') call abort
+end program  bug6
-- 
cgit v1.2.1