|
111
|
1 ! { dg-do compile }
|
|
|
2 !
|
|
|
3 ! See PR fortran/31610
|
|
|
4 !
|
|
|
5 implicit none
|
|
|
6 character(len=2) :: a
|
|
|
7 character(len=3) :: b
|
|
|
8 print *, merge(a,a,.true.)
|
|
|
9 print *, merge(a,'aa',.true.)
|
|
|
10 print *, merge('aa',a,.true.)
|
|
|
11 print *, merge('aa','bb',.true.)
|
|
|
12 print *, merge(a, b, .true.) ! { dg-error "Unequal character lengths" }
|
|
|
13 print *, merge(a, 'bbb',.true.) ! { dg-error "Unequal character lengths" }
|
|
|
14 print *, merge('aa',b, .true.) ! { dg-error "Unequal character lengths" }
|
|
|
15 print *, merge('aa','bbb',.true.) ! { dg-error "Unequal character lengths" }
|
|
|
16 end
|
