47 lines · plain
1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | \2! RUN: FileCheck %s --check-prefix=LLVM3 4! Test CHARACTER argument5subroutine char_arg(str1)6 character(len=5) :: str17 print *, str18end subroutine9 10! Test CHARACTER argument with different length11subroutine char_arg_len10(str2)12 character(len=10) :: str213 print *, str214end subroutine15 16! Test multiple CHARACTER arguments17subroutine multi_char_args(s1, s2, s3)18 character(len=5) :: s119 character(len=8) :: s220 character(len=3) :: s321 print *, s1, s2, s322end subroutine23 24! Test mixed argument types (CHARACTER and INTEGER)25subroutine mixed_args(n, str, m)26 integer :: n27 character(len=7) :: str28 integer :: m29 print *, n, str, m30end subroutine31 32program test33 call char_arg('hello')34 call char_arg_len10('hello test')35 call multi_char_args('abc', 'test123', 'xyz')36 call mixed_args(1, 'fortran', 2)37end program test38 39! LLVM-DAG: !DILocalVariable(name: "str1", arg: 140! LLVM-DAG: !DILocalVariable(name: "str2", arg: 141! LLVM-DAG: !DILocalVariable(name: "s1", arg: 142! LLVM-DAG: !DILocalVariable(name: "s2", arg: 243! LLVM-DAG: !DILocalVariable(name: "s3", arg: 344! LLVM-DAG: !DILocalVariable(name: "n", arg: 145! LLVM-DAG: !DILocalVariable(name: "str", arg: 246! LLVM-DAG: !DILocalVariable(name: "m", arg: 347