https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96436
Bug ID: 96436
Summary: -std=f2003 -pedantic rejects valid f0.d edit
descriptor
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: guez at lmd dot ens.fr
Target Milestone: ---
Here is my system information:
$ gcc-10 -v
Using built-in specs.
COLLECT_GCC=gcc-10
COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/10/lto-wrapper
OFFLOAD_TARGET_NAMES=nvptx-none:amdgcn-amdhsa:hsa
OFFLOAD_TARGET_DEFAULT=1
Target: x86_64-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu
10-20200411-0ubuntu1' --with-bugurl=file:///usr/share/doc/gcc-10/README.Bugs
--enable-languages=c,ada,c++,go,brig,d,fortran,objc,obj-c++,m2 --prefix=/usr
--with-gcc-major-version-only --program-suffix=-10
--program-prefix=x86_64-linux-gnu- --enable-shared --enable-linker-build-id
--libexecdir=/usr/lib --without-included-gettext --enable-threads=posix
--libdir=/usr/lib --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug
--enable-libstdcxx-time=yes --with-default-libstdcxx-abi=new
--enable-gnu-unique-object --disable-vtable-verify --enable-plugin
--enable-default-pie --with-system-zlib --enable-libphobos-checking=release
--with-target-system-zlib=auto --enable-objc-gc=auto --enable-multiarch
--disable-werror --with-arch-32=i686 --with-abi=m64
--with-multilib-list=m32,m64,mx32 --enable-multilib --with-tune=generic
--enable-offload-targets=nvptx-none,amdgcn-amdhsa,hsa --without-cuda-driver
--enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu
--target=x86_64-linux-gnu
Thread model: posix
Supported LTO compression algorithms: zlib zstd
gcc version 10.0.1 20200411 (experimental) [master revision
bb87d5cc77d:75961caccb7:f883c46b4877f637e0fa5025b4d6b5c9040ec566] (Ubuntu
10-20200411-0ubuntu1)
Here is a test program for the bug:
$ cat my_test.f90
print "(f0.2)", 3.
end
Here is the compilation command:
$ gfortran-10 -std=f2003 -pedantic my_test.f90
There is no problem at compilation. Here is the result of execution:
$ a.out
At line 1 of file my_test.f90 (unit = 6, file = 'stdout')
Fortran runtime error: Zero width in format descriptor
(f0.2)
^
Error termination. Backtrace:
#0 0x14d29aeffd0a
#1 0x14d29af00819
#2 0x14d29af014ef
#3 0x14d29b133ed1
#4 0x14d29b13410e
#5 0x14d29b1450a7
#6 0x55c1c61a01d7
#7 0x55c1c61a023a
#8 0x14d29ad0f0b2
#9 0x55c1c61a00bd
#10 0xffffffffffffffff
This is a bug. Zero width in edit descriptor Fw.d, on output, is valid. Cf.
Fortran 2003 standard, paragraph 10.6.1.
