[fortran, test case, committed]

[fortran, test case, committed]

[Thomas Koenig]

[-- Attachment #1: Type: text/plain, Size: 354 bytes --]

Hi,

I just committed the test case below as obvious, after testing.
Just to make sure that, when we convert all test cases from
CALL ABORT to "STOP 1" (or whatever), we actually get a failure
when we have a regression.

Regards

	Thomas

2018-02-15  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/84381
	* gfortran.dg/stop_shouldfail.f90: New test.


[-- Attachment #2: stop_shouldfail.f90 --]
[-- Type: text/x-fortran, Size: 85 bytes --]

! { dg-do  run }
! { dg-shouldfail "STOP 1" }
program main
  stop 1
end program main

Re: [fortran, test case, committed]

[Janus Weil]

Hi Thomas,

apparently your commit only includes the ChangeLog addition, but not
the new test case itself. I guess you missed an "svn add"? :)

Cheers,
Janus


2018-02-15 19:47 GMT+01:00 Thomas Koenig <tkoenig@netcologne.de>:
> Hi,
>
> I just committed the test case below as obvious, after testing.
> Just to make sure that, when we convert all test cases from
> CALL ABORT to "STOP 1" (or whatever), we actually get a failure
> when we have a regression.
>
> Regards
>
>         Thomas
>
> 2018-02-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
>
>         PR fortran/84381
>         * gfortran.dg/stop_shouldfail.f90: New test.
>

Re: [fortran, test case, committed]

[Thomas Koenig]

Hi Janus,

> apparently your commit only includes the ChangeLog addition, but not
> the new test case itself. I guess you missed an "svn add"? :)

Actually, I messed up the ChangeLog entry in r257702 and corrected that
one in r257703 :-)

The test case is there.

Regards

	Thomas

Re: [fortran, test case, committed]

[Janus Weil]

2018-02-15 20:53 GMT+01:00 Thomas Koenig <tkoenig@netcologne.de>:
> Hi Janus,
>
>> apparently your commit only includes the ChangeLog addition, but not
>> the new test case itself. I guess you missed an "svn add"? :)
>
>
> Actually, I messed up the ChangeLog entry in r257702 and corrected that
> one in r257703 :-)
>
> The test case is there.

Ah, ok. Only saw r257703 in the PR. Thanks for the clarification!


Cheers,
Janus

[fortran, test case, committed]

[Thomas Koenig]

[-- Attachment #1: Type: text/plain, Size: 294 bytes --]

Hello world,

this seems to be a productive day for gfortran :-)

Here is another commit of a test case for a bug that
was fixed some time ago.  This is r253126.

Regards

	Thomas

2017-09-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
	PR fortran/66328

	* gfortran.dg/data_derived_1.f90: New test.

[-- Attachment #2: data_derived_1.f90 --]
[-- Type: text/x-fortran, Size: 283 bytes --]

! { dg-do  run }
! PR 66328 - this used to give a wrong value for integer values for DATA
program main
  TYPE t
    REAL r
  END TYPE t
  TYPE (t) e1, e2
  
  DATA e1 / t(1) /
  DATA e2 / t(1.0) /
  if (abs(e1%r - 1.0) > 1e-6) call abort
  if (abs(e2%r - 1.0) > 1e-6) call abort
END