From f161447f30f06d3f47693a11c4c504c0d4174c46 Mon Sep 17 00:00:00 2001
From: hawk <18801353760@163.com>
Date: Thu, 30 Mar 2023 16:00:05 +0800
Subject: [PATCH] [test]add test for character align pragma

This patch adds test for character align pragma used
in program, module, submodule, subroutine and function.
---
 test/directives/align_character_type.f90 | 111 +++++++++++++++++++++++
 1 file changed, 111 insertions(+)
 create mode 100644 test/directives/align_character_type.f90

diff --git a/test/directives/align_character_type.f90 b/test/directives/align_character_type.f90
new file mode 100644
index 00000000000..20464cf9179
--- /dev/null
+++ b/test/directives/align_character_type.f90
@@ -0,0 +1,111 @@
+! RUN: %flang -O0 -S -emit-llvm %s -o - | FileCheck %s
+
+! CHECK: %struct[[BLOCK1:_module_align_[0-9]+_]] = type <{ [138 x i8] }
+! CHECK: @[[BLOCK1]] = common global %struct[[BLOCK1]] zeroinitializer, align 512
+
+module module_align
+implicit none
+
+    !dir$ align 0x80
+    character(len=10)   :: v1
+
+    !dir$ align 0x80
+    character(len=10)   :: v2
+
+    interface
+        module subroutine module_interface_subroutine()
+        end subroutine module_interface_subroutine
+    end interface
+
+end module module_align
+
+submodule (module_align) submodule_align
+
+    contains
+    module subroutine module_interface_subroutine()
+
+        !dir$ align 0x100
+        character(len=10)   :: v3
+! CHECK:    %[[V3:v3_[0-9]+]] = alloca [10 x i8], align 256
+
+        !dir$ align 0x100
+        character(len=10)   :: v4
+! CHECK:    %[[V4:v4_[0-9]+]] = alloca [10 x i8], align 256
+
+        v3 = "101"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V3]], align
+
+        v4 = "102"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V4]], align
+
+    end subroutine module_interface_subroutine
+end submodule submodule_align
+
+
+
+program align
+use module_align
+implicit none
+
+    !dir$ align 0x200
+    character(len=10)   :: v5
+! CHECK:    %[[V5:v5_[0-9]+]] = alloca [10 x i8], align 512
+
+    !dir$ align 0x200
+    character(len=10)   :: v6
+! CHECK:    %[[V6:v6_[0-9]+]] = alloca [10 x i8], align 512
+
+    v5 = "201"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V5]], align
+
+    v6 = "202"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V6]], align
+
+    v1 = "81"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr @[[BLOCK1]], align
+
+    v2 = "82"
+! CHECK:      %[[TEMP:[0-9]+]] = getelementptr i8, ptr @[[BLOCK1]], i64 512
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[TEMP]], align
+
+end program align
+
+
+subroutine subroutine_align()
+
+    !dir$ align 0x400
+    character(len=10)   :: v7
+! CHECK:    %[[V7:v7_[0-9]+]] = alloca [10 x i8], align 1024
+
+    !dir$ align 0x400
+    character(len=10)   :: v8
+! CHECK:    %[[V8:v8_[0-9]+]] = alloca [10 x i8], align 1024
+
+    v7 = "401"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V7]], align
+
+    v8 = "402"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V8]], align
+
+    return
+end subroutine subroutine_align
+
+
+function function_align()
+
+    !dir$ align 0x800
+    character(len=10)   :: v9
+! CHECK:    %[[V9:v9_[0-9]+]] = alloca [10 x i8], align 2048
+
+    !dir$ align 0x800
+    character(len=10)   :: v10
+! CHECK:    %[[V10:v10_[0-9]+]] = alloca [10 x i8], align 2048
+
+    v9 = "801"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V9]], align
+
+    v10 = "802"
+! CHECK:      store volatile i64 %{{[0-9]+}}, ptr %[[V10]], align
+
+    return
+end function function_align
\ No newline at end of file