summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/char_length_1.f90
blob: 3f92f0efa90324eacc7a5cd5d622bda6d0211637 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
! { 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