Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/value_5.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Length of character dummy variable with VALUE attribute: ! - must be initialization expression or omitted ! - C interoperable: must be initialization expression of length one ! or omitted ! ! Contributed by Tobias Burnus program x implicit none character(10) :: c1,c10 c1 = 'H' c10 = 'Main' call foo1(c1) call foo2(c1) call foo3(c10) call foo4(c10) call bar1(c1) call bar2(c1) call bar3(c10) call bar4(c10) contains subroutine foo1(a) character :: a value :: a end subroutine foo1 subroutine foo2(a) character(1) :: a value :: a end subroutine foo2 subroutine foo3(a) character(10) :: a value :: a end subroutine foo3 subroutine foo4(a) ! { dg-error "VALUE attribute must have constant length" } character(*) :: a value :: a end subroutine foo4 subroutine bar1(a) use iso_c_binding, only: c_char character(kind=c_char) :: a value :: a end subroutine bar1 subroutine bar2(a) use iso_c_binding, only: c_char !character(kind=c_char,len=1) :: a character(1,kind=c_char) :: a value :: a end subroutine bar2 subroutine bar3(a) ! { dg-error "VALUE attribute must have length one" } use iso_c_binding, only: c_char character(kind=c_char,len=10) :: a value :: a end subroutine bar3 subroutine bar4(a) ! { dg-error "VALUE attribute must have constant length" } use iso_c_binding, only: c_char character(kind=c_char,len=*) :: a value :: a end subroutine bar4 end program x