mirror of
https://github.com/cp2k/cp2k.git
synced 2026-07-29 06:35:28 -04:00
14 lines
927 B
Fortran
14 lines
927 B
Fortran
!--------------------------------------------------------------------------------------------------!
|
|
! Copyright (C) by the DBCSR developers group - All rights reserved !
|
|
! This file is part of the DBCSR library. !
|
|
! !
|
|
! For information on the license, see the LICENSE file. !
|
|
! For further information please visit https://dbcsr.cp2k.org !
|
|
! SPDX-License-Identifier: GPL-2.0+ !
|
|
!--------------------------------------------------------------------------------------------------!
|
|
|
|
program main
|
|
implicit none
|
|
real :: x(2) = [real :: 3, 4]
|
|
if (abs(norm2(x) - 5.) > 1.0D-5) stop 1
|
|
end program
|