2010-07-24 Tobias Burnus <burnus@net-b.de>
+ * gfortran.dg/entry_13.f90: Use abs() > eps instead of "/=".
+ * gfortran.dg/integer_exponentiation_3.F90: Use -ffloat-store.
+
+2010-07-24 Tobias Burnus <burnus@net-b.de>
+
* gfortran.dg/func_decl_4.f90: Split test into two ...
* gfortran.dg/func_decl_5.f90: ... parts.
* gfortran.dg/common_resize_1.f: xfail two warnings (cf. PR 45045).
type(z) z1
z1 = x1//y1
- if (z1%x .ne. 19.0_4 + 7.0_4) call abort ()
+ if (abs(z1%x - (19.0_4 + 7.0_4)) > epsilon(x1%x)) call abort ()
z1 = y1//x1
- if (z1%x .ne. 19.0_4 - 7.0_4) call abort ()
+ if (abs(z1%x - (19.0_4 - 7.0_4)) > epsilon(x1%x)) call abort ()
z1 = x1==y1
- if (z1%x .ne. 19.0_4/7.0_4) call abort ()
+ if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort ()
z1 = y1==x1
- if (z1%x .ne. 19.0_4/7.0_4) call abort ()
+ if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort ()
end program test
! { dg-final { cleanup-modules "type_mod" } }
--- /dev/null
+! { dg-do compile }
+! { dg-options "-c" }
+!
+! Functions shall not have an initializer.
+!
+! Some tests were moved from func_decl_4.f90 to here.
+!
+
+function f1() ! { dg-error "cannot have an initializer" }
+ integer :: f1 = 42
+end function
+
+function f2() RESULT (r) ! { dg-error "cannot have an initializer" }
+ integer :: r = 42
+end function
--- /dev/null
+! { dg-do compile }
+! { dg-options "-std=f95 -Wintrinsics-std -fdump-tree-original" }
+
+!
+! See intrinsic_std_1.f90 for more compile-time checks
+!
+
+! PR fortran/33141
+! Check for the expected behaviour when an intrinsic function/subroutine is
+! called that is not available in the defined standard or that is a GNU
+! extension:
+! There should be a warning emitted on the call, and the reference should be
+! treated like an external call.
+! For declaring a non-standard intrinsic INTRINSIC, a hard error should be
+! generated, of course.
+
+SUBROUTINE no_implicit
+ IMPLICIT NONE
+ REAL :: asinh ! { dg-warning "Fortran 2008" }
+
+ ! abort is a GNU extension
+ CALL abort () ! { dg-warning "extension" }
+
+ ! ASINH is an intrinsic of F2008
+ ! The warning should be issued in the declaration above where it is declared
+ ! EXTERNAL.
+ WRITE (*,*) ASINH (1.) ! { dg-warning "Fortran 2008" }
+END SUBROUTINE no_implicit
+
+SUBROUTINE implicit_type
+ ! acosh has implicit type
+
+ WRITE (*,*) ACOSH (1.) ! { dg-warning "Fortran 2008" }
+ WRITE (*,*) ACOSH (1.) ! { dg-bogus "Fortran 2008" }
+END SUBROUTINE implicit_type
+
+! Scan that really external functions are called.
+! { dg-final { scan-tree-dump " abort " "original" } }
+! { dg-final { scan-tree-dump " asinh " "original" } }
+! { dg-final { scan-tree-dump " acosh " "original" } }
+! { dg-final { cleanup-tree-dump "original" } }