Skip to content

Commit ed8f048

Browse files
committed
Added test file for the issue
1 parent 8768516 commit ed8f048

File tree

1 file changed

+14
-0
lines changed

1 file changed

+14
-0
lines changed

flang/test/Lower/adjustr.f90

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
! RUN: bbc -emit-fir -o - %s | FileCheck %s
2+
3+
! Checking no reference to boxchar conversion is in the emitted fir.
4+
! CHECK-NOT: (!fir.ref<!fir.char<1,4>>) -> !fir.boxchar<1>
5+
6+
program main
7+
logical ,dimension(1):: mask = .true.
8+
character(len=2),dimension(1):: d1 = "a "
9+
character(len=4),dimension(1):: d4
10+
where (mask)
11+
d4 = adjustr(d1 // d1)
12+
end where
13+
write(6,*) "d4 =", d4
14+
end

0 commit comments

Comments
 (0)