source: vendors/FCM-2017.10.0/tutorial/trunk-r1/src/module/hello_num.f90 @ 10672

Last change on this file since 10672 was 10672, checked in by nicolasmartin, 3 years ago

Reimport latest FCM release

File size: 355 bytes
Line 
1MODULE hello_number
2
3IMPLICIT NONE
4
5PRIVATE
6INTEGER, PARAMETER :: i=0
7INTEGER, PARAMETER :: huge_number=HUGE(i)
8
9PUBLIC hello_huge_number
10
11CONTAINS
12SUBROUTINE hello_huge_number()
13CHARACTER(LEN=*), PARAMETER :: this='hello_huge_number'
14WRITE(*, '(A,I0)') this // ': maximum integer: ', huge_number
15END SUBROUTINE hello_huge_number
16
17END MODULE hello_number
Note: See TracBrowser for help on using the repository browser.