!
! Copyright (c) 2015, NVIDIA CORPORATION.  All rights reserved.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
!     http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!

program testieee1
use ieee_exceptions
type(ieee_flag_type) :: ie1, ie2, ie3, ie4, ie5, ie6
type(ieee_flag_type) :: je1, je2, je3, je4, je5, je6
type(ieee_status_type) :: se1, sf1
logical l1(2), l2(2)
l1 = .true.
l2 = .true.
print *,"Test ieee derived types"
ie1 = ieee_underflow
ie2 = ieee_overflow
ie3 = ieee_divide_by_zero
ie4 = ieee_inexact
ie5 = ieee_invalid
ie6 = ieee_denorm
je1 = ie1
je2 = ie2
je3 = ie3
je4 = ie4
je5 = ie5
je6 = ie6
se1 = sf1
call ieee_get_status(se1)
sf1 = se1
call check(l1, l2, 2)
end