Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/char_length_1.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-Wall -std=f2003" } ! Tests the patch for PR27996 and PR27998, in which warnings ! or errors were not emitted when the length of character ! constants was changed silently. ! ! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de> ! program test implicit none character(10) :: a(3) character(10) :: b(3)= & (/ 'Takata ', 'Tanaka', 'Hayashi' /) ! { dg-error "Different CHARACTER" } character(4) :: c = "abcde" ! { dg-warning "being truncated" } a = (/ 'Takata', 'Tanaka ', 'Hayashi' /) ! { dg-error "Different CHARACTER" } a = (/ 'Takata ', 'Tanaka ', 'Hayashi' /) b = "abc" ! { dg-error "no IMPLICIT" } c = "abcdefg" ! { dg-warning "will be truncated" } end program test