parent
d7bfd90745
commit
dfe4ab155e
|
@ -13,7 +13,7 @@
|
|||
if (any(c2(:) .ne. (/'abcd','abcd', &
|
||||
'abcd','abcd'/))) call abort ()
|
||||
|
||||
! Now get a bit smarter
|
||||
! Now get a bit smarter
|
||||
call foo ((/"abcd", "efgh", "ijkl", "mnop"/), c1) ! worked previously
|
||||
call foo ((/(c1(i), i = m,1,-1)/), c2) ! was broken
|
||||
if (any(c2(4:1:-1) .ne. c1)) call abort ()
|
||||
|
@ -22,7 +22,7 @@
|
|||
call foo ((/(c1(i)(i/2+1:i/2+2), i = 1,4)/), c2) ! Ha! take that..!
|
||||
if (any (c2 .ne. (/"ab ","fg ","jk ","op "/))) call abort ()
|
||||
|
||||
! Check functions in the constructor
|
||||
! Check functions in the constructor
|
||||
call foo ((/(achar(64+i)//achar(68+i)//achar(72+i)// &
|
||||
achar(76+i),i=1,4 )/), c1) ! was broken
|
||||
if (any (c1 .ne. (/"AEIM","BFJN","CGKO","DHLP"/))) call abort ()
|
||||
|
|
Loading…
Reference in New Issue