Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-cpp -fdec -fno-dec-format-defaults" } ! ! Test case for the default field widths not enabled. ! ! Test case added by Mark Eggleston <mark.eggleston@codethink.com> to check ! use of -fno-dec-format-defaults ! program test implicit none character(50) :: buffer real*4 :: real_4 real*8 :: real_8 #ifdef __GFC_REAL_16__ real*16 :: real_16 #endif integer :: len character(*), parameter :: fmt = "(A, F, A)" real_4 = 4.18 write(buffer, fmt) ':',real_4,':' ! { dg-error "Nonnegative width required" } real_4 = 0.00000018 write(buffer, fmt) ':',real_4,':' ! { dg-error "Nonnegative width required" } real_8 = 4.18 write(buffer, fmt) ':',real_8,':' ! { dg-error "Nonnegative width required" } #ifdef __GFC_REAL_16__ real_16 = 4.18 write(buffer, fmt) ':',real_16,':' ! { dg-error "Nonnegative width required" "" { target fortran_real_16 } } #endif end