| ! { dg-do compile } |
| ! |
| ! PR fortran/58579 |
| ! |
| ! Contributed by Joost VandeVondele |
| ! |
| ! Was ICEing before due to the patch for PR 58593 |
| ! |
| subroutine test |
| CHARACTER(len=20) :: tmpStr |
| CHARACTER(len=20, kind=4) :: tmpStr4 |
| INTEGER :: output_unit=6 |
| WRITE (UNIT=output_unit,FMT="(T2,A,T61,A20)")& |
| "DFT| Self-interaction correction (SIC)",ADJUSTR(TRIM(tmpstr)) |
| WRITE (UNIT=output_unit,FMT="(T2,A,T61,A20)")& |
| 4_"DFT| Self-interaction correction (SIC)",ADJUSTR(TRIM(tmpstr4)) |
| END |
| |
| ! |
| ! PR fortran/58593 |
| ! Contributed by Albert Bartok |
| ! |
| ! The PR was overallocating memory. I placed it here to check for a |
| ! variant of the test case above, which takes a slightly differnt code |
| ! patch. Thus, its purpose is just to ensure that it won't ICE. |
| ! |
| program test_char |
| |
| implicit none |
| integer :: i |
| |
| read*, i |
| print*, trim(test(i)) |
| |
| contains |
| |
| function test(i) |
| integer, intent(in) :: i |
| character(len=i) :: test |
| |
| test(1:1) = "A" |
| endfunction test |
| |
| endprogram test_char |