procyberian/gcc
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fmt_f_default_field_width_1.f90: Hide REAL(16) behind __GFC_REAL_16__.

Browse source 
2019-05-23  Mark Eggleston  <mark.eggleston@codethink.com>

	* gfortran.dg/fmt_f_default_field_width_1.f90: Hide REAL(16) behind
	__GFC_REAL_16__.  Add -cpp to dg-options.
	* gfortran.dg/fmt_f_default_field_width_2.f90: Ditto.
	* gfortran.dg/fmt_f_default_field_width_3.f90: Ditto.
	* gfortran.dg/fmt_g_default_field_width_1.f90: Ditto.
	* gfortran.dg/fmt_g_default_field_width_2.f90: Ditto.
	* gfortran.dg/fmt_g_default_field_width_3.f90: Ditto.

From-SVN: r271573
This commit is contained in:
Mark Eggleston 2019-05-23 17:20:58 +00:00 • committed by Steven G. Kargl
parent a44ae25817
commit f58be48c09
7 changed files with 46 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,13 @@
2019-05-23 Mark Eggleston <mark.eggleston@codethink.com>
* gfortran.dg/fmt_f_default_field_width_1.f90: Hide REAL(16) behind
__GFC_REAL_16__. Add -cpp to dg-options.
* gfortran.dg/fmt_f_default_field_width_2.f90: Ditto.
* gfortran.dg/fmt_f_default_field_width_3.f90: Ditto.
* gfortran.dg/fmt_g_default_field_width_1.f90: Ditto.
* gfortran.dg/fmt_g_default_field_width_2.f90: Ditto.
* gfortran.dg/fmt_g_default_field_width_3.f90: Ditto.
2019-05-23 Bill Schmidt <wschmidt@linux.ibm.com>
* gcc.target/powerpc/cpu-future.c: New test.

7
gcc/testsuite/gfortran.dg/fmt_f_default_field_width_1.f90
View file

@ -1,5 +1,5 @@
! { dg-do run }
! { dg-options -fdec }
! { dg-options "-cpp -fdec" }
!
! Test case for the default field widths enabled by the -fdec-format-defaults flag.
!
@ -8,11 +8,14 @@
!
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)"
@ -32,9 +35,11 @@ program test
len = len_trim(buffer)
if (len /= 27) stop 3
#ifdef __GFC_REAL_16__
real_16 = 4.18
write(buffer, fmt) ':',real_16,':'
print *,buffer
len = len_trim(buffer)
if (len /= 44) stop 4
#endif
end

7
gcc/testsuite/gfortran.dg/fmt_f_default_field_width_2.f90
View file

@ -1,5 +1,5 @@
! { dg-do run }
! { dg-options -fdec-format-defaults }
! { dg-options "-cpp -fdec-format-defaults" }
!
! Test case for the default field widths enabled by the -fdec-format-defaults flag.
!
@ -11,11 +11,14 @@
!
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)"
@ -35,9 +38,11 @@ program test
len = len_trim(buffer)
if (len /= 27) stop 3
#ifdef __GFC_REAL_16__
real_16 = 4.18
write(buffer, fmt) ':',real_16,':'
print *,buffer
len = len_trim(buffer)
if (len /= 44) stop 4
#endif
end

7
gcc/testsuite/gfortran.dg/fmt_f_default_field_width_3.f90
View file

@ -1,5 +1,5 @@
! { dg-do compile }
! { dg-options "-fdec -fno-dec-format-defaults" }
! { dg-options "-cpp -fdec -fno-dec-format-defaults" }
!
! Test case for the default field widths not enabled.
!
@ -8,11 +8,14 @@
!
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)"
@ -25,6 +28,8 @@ program test
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" }
#endif
end

7
gcc/testsuite/gfortran.dg/fmt_g_default_field_width_1.f90
View file

@ -1,5 +1,5 @@
! { dg-do run }
! { dg-options -fdec }
! { dg-options "-cpp -fdec" }
!
! Test case for the default field widths enabled by the -fdec-format-defaults flag.
!
@ -8,11 +8,14 @@
!
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, G, A)"
@ -37,9 +40,11 @@ program test
len = len_trim(buffer)
if (len /= 27) stop 4
#ifdef __GFC_REAL_16__
real_16 = 4.18
write(buffer, fmt) ':',real_16,':'
print *,buffer
len = len_trim(buffer)
if (len /= 44) stop 5
#endif
end

7
gcc/testsuite/gfortran.dg/fmt_g_default_field_width_2.f90
View file

@ -1,5 +1,5 @@
! { dg-do run }
! { dg-options -fdec-format-defaults }
! { dg-options "-cpp -fdec-format-defaults" }
!
! Test case for the default field widths enabled by the -fdec-format-defaults flag.
!
@ -11,11 +11,14 @@
!
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, G, A)"
@ -40,9 +43,11 @@ program test
len = len_trim(buffer)
if (len /= 27) stop 4
#ifdef __GFC_REAL_16__
real_16 = 4.18
write(buffer, fmt) ':',real_16,':'
print *,buffer
len = len_trim(buffer)
if (len /= 44) stop 5
#endif
end

7
gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90
View file

@ -1,5 +1,5 @@
! { dg-do compile }
! { dg-options "-fdec -fno-dec-format-defaults" }
! { dg-options "-cpp -fdec -fno-dec-format-defaults" }
!
! Test case for the default field widths not enabled.
!
@ -8,11 +8,14 @@
!
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, G, A)"
@ -28,6 +31,8 @@ program test
real_8 = 4.18
write(buffer, fmt) ':',real_8,':' ! { dg-error "Positive width required" }
#ifdef __GFC_REAL_16__
real_16 = 4.18
write(buffer, fmt) ':',real_16,':' ! { dg-error "Positive width required" }
#endif
end