Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/char_length_19.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 ! | |
| 3 ! PR fortran/58579 | |
| 4 ! | |
| 5 ! Contributed by Joost VandeVondele | |
| 6 ! | |
| 7 ! Was ICEing before due to the patch for PR 58593 | |
| 8 ! | |
| 9 subroutine test | |
| 10 CHARACTER(len=20) :: tmpStr | |
| 11 CHARACTER(len=20, kind=4) :: tmpStr4 | |
| 12 INTEGER :: output_unit=6 | |
| 13 WRITE (UNIT=output_unit,FMT="(T2,A,T61,A20)")& | |
| 14 "DFT| Self-interaction correction (SIC)",ADJUSTR(TRIM(tmpstr)) | |
| 15 WRITE (UNIT=output_unit,FMT="(T2,A,T61,A20)")& | |
| 16 4_"DFT| Self-interaction correction (SIC)",ADJUSTR(TRIM(tmpstr4)) | |
| 17 END | |
| 18 | |
| 19 ! | |
| 20 ! PR fortran/58593 | |
| 21 ! Contributed by Albert Bartok | |
| 22 ! | |
| 23 ! The PR was overallocating memory. I placed it here to check for a | |
| 24 ! variant of the test case above, which takes a slightly differnt code | |
| 25 ! patch. Thus, its purpose is just to ensure that it won't ICE. | |
| 26 ! | |
| 27 program test_char | |
| 28 | |
| 29 implicit none | |
| 30 integer :: i | |
| 31 | |
| 32 read*, i | |
| 33 print*, trim(test(i)) | |
| 34 | |
| 35 contains | |
| 36 | |
| 37 function test(i) | |
| 38 integer, intent(in) :: i | |
| 39 character(len=i) :: test | |
| 40 | |
| 41 test(1:1) = "A" | |
| 42 endfunction test | |
| 43 | |
| 44 endprogram test_char |