Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/hollerith6.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! PR fortran/39865 ! { dg-do run } subroutine foo (a) integer(kind=4) :: a(1, 3) character(len=40) :: t write (t, fmt=a(1,2)) 1, 2, 3, 4, 5, 6, 7, 8 if (t .ne. ' 1 2 3 4 5 6 7 8') STOP 1 end subroutine foo interface subroutine foo (a) integer(kind=4) :: a(1, 3) end subroutine foo end interface integer(kind=4) :: b(1,3) character(len=40) :: t b(1,1) = 4HXXXX b(1,2) = 4H (8I b(1,3) = 2H4) write (t, fmt=b(1,2)) 1, 2, 3, 4, 5, 6, 7, 8 if (t .ne. ' 1 2 3 4 5 6 7 8') STOP 2 call foo (b) end ! { dg-warning "Non-character in FORMAT tag" "FMT" { target *-*-* } 7 } ! { dg-warning "Non-character in FORMAT tag" "FMT" { target *-*-* } 20 } ! { dg-warning "Hollerith constant" "const" { target *-*-* } 17 } ! { dg-warning "Conversion" "conversion" { target *-*-* } 17 } ! { dg-warning "Hollerith constant" "const" { target *-*-* } 18 } ! { dg-warning "Conversion" "conversion" { target *-*-* } 18 } ! { dg-warning "Hollerith constant" "const" { target *-*-* } 19 } ! { dg-warning "Conversion" "conversion" { target *-*-* } 19 }